Hallo ich habe eine
ActiveX-Komponente die in unregelmässigen Abständen Events abfeuert.
In meinem Projekt greift der Event auf das RichEdit-Objekt wie folgt zu:
Delphi-Quellcode:
procedure TForm1.AddLog(s: String);
begin
Log.SelStart := Log.GetTextLen;
Log.SelText := '[' + TimeToStr(Time) + '] ' + s + #13 + #10;
end;
Mit dieser Prozedur kommt es zu unregelmässigen Application Exceptions.
Erstaunlicherweise nehmen die Abbrüche ab, wenn ich folgendes als RichEdit-Ereignis einfüge:
Delphi-Quellcode:
procedure TForm1.LogChange(Sender: TObject);
begin
Log.Perform(EM_SCROLLCARET, 0, 0); // Autoscroll Funktion für das RichEdit
end;
Wie geht man richtig vor um einen Text in das RichEdit-Fenster zu schreiben?
Gruss Alois
