精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>控件开发和使用>>Re:如何知道 TEdit控件……

主题:Re:如何知道 TEdit控件……
发信人: 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;



----
抵制日货,从我做起!
坚决不给日本鬼子做事!
求职条件之一:日资、中日合资、中日合作企业免谈。
   

[关闭][返回]