Problem mit PageControl und Application.Restore

[Kawamania]

Hi zusammen,
also ich habe folgendes Problem, das ich trotz Stöbern hier nicht in den Griff kriege:

Ich habe ein PageControl mit 6 Seiten. Unter anderem ein kleines Messaging-Tool per Indy.
Wird das Tool minimiert und es geht eine Nachricht ein, soll das Fenster wieder eingeblendet werden und auf das Tab mit dem Nachrichteneingang wechseln. Funktioniert auch soweit im Prinzip.
Nun das Problem: Ist im Augenblick des Minmierens NICHT die Nachrichtenseite aktiv, dann wird bei Restore zwar der Tab (als Button) wie gedrückt angezeigt, aber die Seite des Tabs beim Minimieren wird angezeigt. Ich kann jetzt jeglichen Tab drücken, aber die Seiten wechseln überhaupt nicht mehr. Erst ein nochmaliges Minimieren und Restore per Maus lässt alles wieder normal anzeigen.
Von ProcessMessages, Refresh, Repaint usw. habe ich alles schon probiert.
Kann mir da jemand weiterhelfen??? 8)
Hier mal der entscheidende Schnipsel der Prozedur:

Code:

...
 Application.Restore;
 pcHL3.TabIndex:=1;
 Application.ProcessMessages;
 pcHL3.Repaint;                    // nur als verzweifelten Test
 pcHL3.Canvas.Refresh;             // nur als verzweifelten Test
...

Noch am Rande: Ist die Anwendung nicht minimiert, funktioniert alles einwandfrei. Nur in Verbindung mit dem Restore geht es schief.

Danke schon mal fürs Grübeln.

*Uwe*

[mikhal]

Versuch's mal mit ActivePageIndex statt TabIndex.

Grüße
Mikhal

[Kawamania]

Zitat von mikhal:

Versuch's mal mit ActivePageIndex statt TabIndex.

Grüße
Mikhal

Keine Änderung.
Mit ActivePage:=... habe ich es auch probiert. Dito.
Trotzdem danke.

[Kawamania]

ICH HAAAAAAAAAAAAAAAAAAB ES!!!!

Falls es jemanden interessiert:
Das Problem konnte ich soweit eingrenzen, dass es nur auftrat, wenn ich die Anwedung optional ausschliesslich ins Systray minimiert hatte. War es minmiert auch in der Taskleiste zu sehen, dann bestand es nicht.
Nach etwas Testen habe ich dann einfach dem Application.Restore noch ein energisches

Code:

Form1.Visible:=True

hinterhergeschoben und schon funktioniert es perfekt. Kleine Ursache - grosse Wirkung.
Wenn jemand Lust hat, kann er mir das gerne mal erklären, auch wenn ich schon froh bin, dass es einfach funktioniert.

[defede]

Hallo, viele Dank du hast mir den Tag gerettet

[himitsu]

Form1.Visible := True; ... Form1 ist eh kein "guter" Name,
aber eventuell sollte man da sicherheitshalber lieber Application.MainForm.Visible := True; oder Application.MainForm.Show; verwenden.