首页 > > 程序设计 > delphi >

delphi三十六之编辑篇

2008-04-09 04:18:19来源：互联网阅读 ()

　　1. 取得TMemo 控件当前光标的行和列信息到Tpoint中

function ReadCursorPos(SourceMemo: TMemo): TPoint;

var

　Point: TPoint;

begin

　point.y := SendMessage(SourceMemo.Handle, EM_LINEFROMCHAR,SourceMemo.SelStart,0);

　point.x := SourceMemo.SelStart- SendMessage(SourceMemo.Handle,EM_LINEINDEX,point.y,0);

　Result := Point;

end;

　　2．检查Tmemo控件能否Undo和如何实现Undo功能

Function CanUndo(AMemo: TMemo): Boolean;

Begin

　Result := AMemo.Perform(EM_CANUNDO, 0, 0) $#@60;$#@62; 0;

End;

Procedure Undo(Amemo: Tmemo);

Begin

　Memo1.Perform(EM_UNDO, 0, 0);

End;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有