delphi三十六之编辑篇

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;