Fokus auf angeblich deaktivierten Tab

[Alexander Roth]

Hi,

ich hatte bei meinem Programm einige Zeit den Einen Tab eines PageControl ausgeblendet (TabVisible:=False; und ich hatte vielleicht auch die Eingenschaft Visible:=False gesetzt).
Nun bin ich soweit den Tab einzublenden (und habe beide Optionen auf True gesetzt), doch jetzt spielt mir das Programm einen bösen Streich.

Es kommt die Fehlermdeung wenn ich mit dem neuen Tab als Standard starte:

Zitat:

---------------------------
Ein deaktiviertes oder unsichtbares Fenster kann nicht den Fokus erhalten.
---------------------------

Wie kann man das beheben?

Danke im Voraus

Gruß Alexander

[SirThornberry]

setze den focus einfach im OnShow des Tabs. Ansonsten bekommst du die Fehlermeldung immer wenn das Control noch nicht wirklich sichtbar ist.

[Alexander Roth]

Also, keines der beiden Code Versionen klappt:

Delphi-Quellcode:

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
  self.TabSheet2.SetFocus;
  self.PageControl1.ActivePage.SetFocus;
end;

Zitat von SirThornberry:

Ansonsten bekommst du die Fehlermeldung immer wenn das Control noch nicht wirklich sichtbar ist.

Eigentlich kommt die Fehlermeldung genau wenn ich genau diesen Tab in den Vordergrund hole (z.B. beim Starten), aber nicht mehr wenn ich die Fehlermdeung weggeklickt habe, auf den anderen Tab und wieder zurück gehe.

Was jetzt?




PS: Ich habe den kompletten Source mal hinten ran gehängt, da es eh Open Source ist (siehe www.roth.22o.de) . Vielleicht hilft das.

[marabu]

Hallo Alexander,

im Ereignis OnCreate() deiner Form machst du die zweite Seite deines PageControl zur aktiven Seite. Im anschließenden Ereignis OnActivate() versuchst du dem Button BElevation auf der ersten Seite den Fokus zu geben, deshalb die Exception.

Noch ein kleiner Tipp: verzichte auf die Verwendung der globalen Variablen Form1 innerhalb der Methoden von TForm1 - es ist überflüssig und fehlerträchtig.

Ein letzter Tipp: wenn du Code zur Verfügung stellst, dann stelle sicher, dass die verwendeten Komponenten allgemein verfügbar sind oder gib einen URL zum Download an. Du erhöhst so deine Chancen auf Antworten.

Grüße vom marabu

[Alexander Roth]

Nein, das ist nicht der Fehler: Es ist das ich beim Activieren einen Button (auf derm ersten Tab) als Focus setzte. Das löst die Exception aus.

Danke für eure Hilfe! Tschüss



PS:

Zitat von marabu:

Ein letzter Tipp: wenn du Code zur Verfügung stellst, dann stelle sicher, dass die verwendeten Komponenten allgemein verfügbar sind oder gib einen URL zum Download an. Du erhöhst so deine Chancen auf Antworten.

Die Komponenten hatte ich ganz vergessen.
Ja mit form1 ist klar. Dummer kleiner Fehler. Replace(form1,self)