Entwickler-Ecke

Visual Component Library (VCL) - ...automatisch zum Cursor in TMemo scrollen lassen?


Tino - Mo 22.05.06 14:53
Titel: ...automatisch zum Cursor in TMemo scrollen lassen?
automatisch zum Cursor in TMemo scrollen lassen?

Mit der folgenden Procedure ist es möglich den Text in einem Memofeld automatisch so scrollen zu lassen, dass der Cursor zu sehen ist:


Delphi-Quelltext
1:
2:
3:
4:
procedure ViewMemoCursor (aMemo: TCustomMemo);
begin
  SendMessage (aMemo.Handle, EM_SCROLLCARET, 00);
end;


Verwandte Beiträge:

Moderiert von user profile iconjasocul: Beitrag geprüft am 22.05.2006