D12 VCL Eingabefokus nach Menü-Hotkeys

[WiWo]

hallo Olli,

ein SetFocus war natürlich mein erster Versuch. Hab's an allen möglichen Stellen probiert, ohne Erfolg. Es gibt leider auch nichts (mir bekanntes), um dem Menü den Fokus zu entziehen.
Ich hab das Projekt auch mal probeweise mit D11 kompiliert; da ist der Fehler auch schon drin.
Zur Sache mit der Alt-Taste: Ich hab hier sogar noch eine D2007-Version des Programms, die noch gewartet wird. Da funktioniert alles richtig. Das Problem ist, soweit ich das erkennen kann, erst mit den Styles reingekommen.
Dummerweise ist der Fehler ein halbes Jahr im Testbetrieb niemandem aufgefallen und jetzt, da die Auslieferung an die Kunden gestartet ist, wird es richtig eng.

[himitsu]

Programme im Hintergrund haben nicht das Recht sich selbstständig in den Vordergrund zu drängeln.
Das aktive Programm darf aber fremde Programme vorholen und ihnen die Kontrolle übergeben.

https://learn.microsoft.com/en-us/tr...on-not-working
https://stackoverflow.com/questions/...w-to-the-front
...

Wenn dein Programm durch irgendwass kurz den Fokus verliert, dann ist es am Arsch.
z.B. ein Fenster schließen, wo es fehlschlägt einem anderen eigenem Fenster vorübergehend den Fokus zu überlassen und erst dann das Neue öffnen.
passiert z.B. selbst der Delphi-IDE gern, wenn gewisse Options-/Fehlerdialoge geschlossen werden.



Oder, was ich grade eben als Problemchen hatte.
* ein Vorauswahldialog geht im OnCreate auf
* der wird geschlossen (Klick auf OK-Knopf) und es tritt ein Fehler auf (hier in einem Query mit defektem SQL)
* der Fehlerdialog erwischt noch das grade noch aktive Vorauswahl-Fenster und merkt sich dessen Handle (HWND)
* * VCL-Dialoge merken sich im ShowModal den Vorherrigen und wollen anschließend den Fokus zurück dahin verschieben
* der Vorgänger ist inzwischen weg, es tritt sowas wie ein Windows.SetFocus(0) auf
* und das Programm wird ganz nach hinten geschoben, hinter alle Fenster anderer Programme

[Olli73]

Zitat von WiWo:

ein SetFocus war natürlich mein erster Versuch. Hab's an allen möglichen Stellen probiert, ohne Erfolg. Es gibt leider auch nichts (mir bekanntes), um dem Menü den Fokus zu entziehen.

Probiere Mal:

Delphi-Quellcode:

  PostMessage(Unit1.Form1.Handle, WM_SYSKEYDOWN , VK_MENU, 0);
  PostMessage(Unit1.Form1.Handle, WM_SYSKEYUP , VK_MENU, 1);

[WiWo]

Hi Olli,

mit Deiner Lösung geht's. Kann sogar in FormCreate-Events der Basis-Formulare eingebaut werden, womit das Problem einfach zu lösen ist. Muss ich nur noch intensiv testen, ob es in allen Situationen problemfrei funktioniert.
Danke.

[himitsu]

OnCreate
Nein.

Nur die MainForm ist mit Visible=True ... sonst werden Forms seit längerem mit Visible=False erstellt, sind beim Create also garnicht sichtbar und SetFocus heult, weil nichtfocusierbare Edits nicht fokusierbar sind.

[jaenicke]

Du kannst einfach das Tracking des Menüs mit WM_CANCELMODE beenden:

Delphi-Quellcode:

procedure TMainForm.Form1Click(Sender: TObject);
begin
  //Application.CreateForm(Unit1.TForm1, Application);
  Unit1.Form1 := TForm1.Create(Application);
  Unit1.Form1.Show;
  PostMessage(Handle, WM_CANCELMODE, 0,  0);
end;

Nichts anderes passiert, wenn du z.B. auf das Formular klickst.