Richedit - Fokus auf letzte Zeilen halten(inaktives Fenster)

[Viktorii]

Hallo zusammen.

Ich habe ein Fenster mit einem RichEdit drauf. Mit RichEdit.Lines.Append() füge ich Zeilen hinzu.

Wenn der sichtbare Bereich des RichEdit voll ist und ich weiter Zeilen anfüge, erscheint der Scrollbalken, die ersten Zielen verschwinden nach oben und die letzten Zeilen sind sichtbar. So soll es auch sein.

Ist allerdings eine andere Anwendung aktiv und mein Fenster ist im Hintergrund, werden die Zeilen zwar angefügt (was ich am kleiner werden des Scrollbalken sehen kann) aber der Fokus ändert sich nicht und bleibt auf den erste Zeilen.

Sobald ich das Fenster ankilcke und es wieder aktiv machen, ändert sich auch der Fokus und zeigt die letzten Zeilen.

Wie bekomme ich es hin, dass sich der Fokus 'on the fly' ändert sobald Zeilen hinzugefügt werden und das Fenster im Hintergrund ist?

RichEdit.Refresh hat leider nicht geholfen.

Vielen Dank

[Lannes]

Hallo,

versuch mal das:

Delphi-Quellcode:

with RichEdit1 do
  begin
  Lines.Append(...); 
  SelStart := Length(Text);
  Perform(EM_SCROLLCARET, 0, 0);
  end;

Aber wofür scrollen, wenn das Fenster im Hintergrund ist

[Viktorii]

Zitat von Lannes:

Hallo,

versuch mal das:

Delphi-Quellcode:

with RichEdit1 do
  begin
  Lines.Append(...); 
  SelStart := Length(Text);
  Perform(EM_SCROLLCARET, 0, 0);
  end;

Klappt leider nicht

Zitat von Lannes:

Aber wofür scrollen, wenn das Fenster im Hintergrund ist

Ich habe eine Software welche mit meiner Anwendung kommuniziert. Nun gebe ich mir Debug-Informationen auf das RichEdit aus. Wenn ich nun die sendende Software (mit nicht maximiertem Fenster) bediene, möchte ich die Debug Infos in meiner Anwendung sofort sehen (ohne meine Anwendung zwischendurch wieder aktiv machen zu müssen).

[Lannes]

Hallo,

das Standardverhalten des RichEdit ist ein automatisches Scrollen beim Einfügen der Zeilen mit Append, auch dann wenn die Anwendung nicht aktiv ist.

Also wird das Scrollen durch etwas anderes verhindert, da fehlen jetzt Informationen um weiter helfen zu können. Wie ist denn die Kommunikation realisiert?

Hilft ein Aufruf von Application.ProcessMessages nach dem Einfügen mit Append?

[Viktorii]

Application.ProcessMessage hilft leider auch nicht.

Kann gut sein dass ich das Scrollen durch irgendetwas verhindere.

Dazu und zum Thema wie die Kommunikation realisiert ist möchte ich hierhin verweisen

[Lannes]

Hallo,

Zitat von Viktorii:

Kann gut sein dass ich das Scrollen durch irgendetwas verhindere.

Dann nimm doch mal "irgendetwas"(nicht unbedingt benötigtes) aus Deinem Code raus

Zitat von Viktorii:

Dazu und zum Thema wie die Kommunikation realisiert ist möchte ich hierhin verweisen

Denke nicht das es an der reinen Kommunikation -Empfang der Daten- liegt.

was mir noch so einfällt:
- RichEdit durch Memo ersetzen = Problem noch vorhanden?
- RichEdit.Invalidate?
- RichEdit.RePaint?

[Viktorii]

Hilft leider alles nicht.

TMemo hingegen macht es genau so wie ich es möchte.

Siehe Beispielprogramm im Anhang.

[Lannes]

Hallo,

Deine exe zeigt den Fehler.

Hab den Code mal mit DelphiTurbo nachgebaut, Scrollen ist OK.

In Deiner Projektdatei ist Application.MainFormOnTaskBar:=True; vorhanden.
Das gibt es erst ab Delphi 2007, hat mir das Inet verraten.
Das ist der einzige Unterschied zu meiner Programmversion.

Ob damit ein Zusammenhang besteht?

[Viktorii]

Seltsam. Bei mir tut's die exe....

Application.MainFormOnTaskBar:=True; auskommentieren hilft leider auch nicht.

Wollte das auch mal mit TurboDelphi probieren, aber scheinbar kann ich das nicht parallel zu Delphi 2009 installieren

Hat jemand vielleicht noch eine Idee?

[Lannes]

Hallo,

Deine exe funktioniert, ich meinte mit "zeigt den Fehler", das abweichende Scrollverhalten.

Was ist wenn Du Application.MainFormOnTaskBar auf False setzt?

Im Anhang mal das normale Verhalten des RichEdits(mit Turbo Delphi erzeugt).