发信人: soaringbird(假行僧＊飞翔鸟)
整理人: teleme(2001-06-04 17:03:34), 站内信件
|
【 在 pazee 的大作中提到：】
:Edit控件在编辑的时候光标停留的位置。
:......
var
pt: TPoint;
i: Integer;
begin
GetCaretPos(pt);
i := SendMessage(Edit1.Handle,EM_CHARFROMPOS,0,MAKELPARAM(pt.x,pt.y));
ShowMessage(IntToStr(LOWORD(i)));
end;
----
抵制日货，从我做起！
坚决不给日本鬼子做事！
求职条件之一：日资、中日合资、中日合作企业免谈。
|
|