Código Delphi [-] {set a current position of cursor to start} SendMessage(Memo1.Handle, EM_SETSEL, 0, 0); {scroll a memo to start position} SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0);
{set a current position of cursor to start} SendMessage(Memo1.Handle, EM_SETSEL, 0, 0); {scroll a memo to start position} SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0);