unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure GetMemoRowCol(M: TMemo; var Row, Col: LongInt);
begin
Row := SendMessage(M.Handle, EM_LINEFROMCHAR, M.SelStart, 0);
Col := M.SelStart-SendMessage(M.Handle, EM_LINEINDEX, Row, 0);
end;
procedure SetMemoRowCol(M: TMemo; Row, Col: Integer);
begin
M.SelStart := SendMessage(M.Handle, EM_LINEINDEX, Row, 0) + Col;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetMemoRowCol(Memo1, 20, 22);
Memo1.SetFocus;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
// cursor를 원하는 위치로 보낸 후 EM_SCROLLCARET 메시지를
// Memo에 보내어 caret이 위치로 scroll 시킨다
// wParam(0), lParam(0) 파라미터는 무시된다
SendMessage(Memo1.handle, EM_SCROLLCARET, 0, 0);
Memo1.SetFocus;
end;
end.
|
|
