Einzelnen Beitrag anzeigen

Benutzerbild von user0815
user0815

Registriert seit: 5. Okt 2007
331 Beiträge
 
Delphi XE2 Professional
 
#1

Memo Auto Scrolling anhalten

  Alt 6. Mär 2009, 10:47
Hallo,
ich benutze ein Memo Feld um den Datenaustausch mit der seriellen Schnittstelle anzuzeigen.
Wie in dem Beispiel kommt jede sec ein neuer Datensatz.
Jetzt will ich mir z.B. den ersten DS ansehen (hochscrollen) ohne den Datenaustausch anzuhalten, kann man das Scrolling für diese Zeit deaktivieren?

Problem: Bei einem neuen DS springt die Anzeige im Memo immer auf den letzten / neuesten.

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.ScrollBars := ssVertical;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  cLinie = '-----------------------------------------------';
begin
  Memo1.Lines.Append(FormatDateTime('hh:nn:ss:zzz', now));
  Memo1.Lines.Append(cLinie);
end;
Grüsse
user0815
  Mit Zitat antworten Zitat