|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
11. Mai 2003, 13:09
Moin Mirage,
so funktioniert's:
Delphi-Quellcode:
procedure TfrmMAIN.CaretToLine(const AiLine : integer);
begin
RichEdit1.SelStart := SendMessage(RichEdit1.Handle,EM_LINEINDEX,AiLine,0);
SendMessage(RichEdit1.Handle,EM_SCROLLCARET,0,0);
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|
|
|
Zitat
|