控件使用
ExSystem
爱好:计算机
我就是ExSystem
展开
-
获得Memo、RichEdit的光标位置
获得Memo、RichEdit的光标位置:procedure TForm1.Button1Click(Sender: TObject);var Row, Col : integer;begin Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); Col := CustEdit.SelStar原创 2003-09-10 11:24:00 · 2869 阅读 · 0 评论 -
如何做出像Foxmail、MSN的消息窗体的效果
Procedure TForm1.FormCreate(Sender: TObject);Begin Form1.Top := Screen.Height; Form1.Left := Screen.Width - Form1.Width; SysTmrTimer.Enabled := True;End; Procedure TForm1.SysTmrTimerTimer(Sender: T原创 2004-07-23 22:36:00 · 2348 阅读 · 3 评论