procedure TForm1.Button1Click(Sender: TObject);
begin
// SendMessage(Memo1.Handle, EM_LINEINDEX, Row, 0) + Col 위치
Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, 0, 0) + 0;
// cursor를 원하는 위치로 보낸 후 EM_SCROLLCARET 메시지를
// Memo에 보내어 caret이 위치로 scroll 시킨다
// wParam(0), lParam(0) 파라미터는 무시된다
SendMessage(Memo1.handle, EM_SCROLLCARET, 0, 0);
Memo1.SetFocus;
end;
begin
// SendMessage(Memo1.Handle, EM_LINEINDEX, Row, 0) + Col 위치
Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, 0, 0) + 0;
// cursor를 원하는 위치로 보낸 후 EM_SCROLLCARET 메시지를
// Memo에 보내어 caret이 위치로 scroll 시킨다
// wParam(0), lParam(0) 파라미터는 무시된다
SendMessage(Memo1.handle, EM_SCROLLCARET, 0, 0);
Memo1.SetFocus;
end;