HotKey und SetFocus

[Nils_13]

Hi,

mein Programm ist bei Start unsichtbar. Wenn ich einen HotKey drücke, soll das Programm erscheinen und der Fokus auf das Programm gerichtet sein. Wenn ich das Programm aus Delphi heraus ausführe und den entsprechenden HotKey drücke, wird es fokusiert. Mache ich es hingegen via Explorer/Autostart, ist das Fenster nicht fokusiert. Eine Idee warum ?

Delphi-Quellcode:

procedure TfrmMain.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TfrmMain.WMHotKey(var Message : TMessage);
begin
  if Message.wParam = HotKeyID then
    if Visible then
      Hide
    else
    begin
      Show;
      SetFocus;
    end;
end;

[TonyR]

nicht fokussiert oder gar nicht angezeigt (also ist es in der Taskleiste?) ?

Edit: wenn das Fenster.visible:=true ist, würde ja auch application.restore helfen.

[Nils_13]

Das Programm wird beabsichtigt nicht in der Taskleiste angezeigt.

Meinst du das so ? Aus Delphi heraus funktioniert es, aus dem Explorer wieder nicht.

Delphi-Quellcode:

procedure TfrmMain.WMHotKey(var Message : TMessage);
begin
  if Message.wParam = HotKeyID then
    if Visible then
      Hide
    else
    begin
      Show;
      Application.Restore;
    end;
end;

[Der.Kaktus]

Hallo,
versuchs mal mit

Delphi-Quellcode:

setActiveWindow(Application.Handle);

vorm Focus setzen.

[TonyR]

Wie das mit Hotkey geht weiß ich jetz nicht, aber ich hab das, was passiert, wenn der hotkey gedrückt wird und das Fenster HID(-DEN-)E ist in einen Timer getan ... das Programm mit "Showmainform:=false" gestartet und bei mir funktioniert es aus Delphi sowie vom Explorer aus wunderbar.

Vielleicht liegt es irgendwie an doppelten Aufruf der HotKey-Procedure!?

[Nils_13]

Es ist kein doppelter Aufruf. Ich dachte selbst im Überfliegen, zur Zusammenstellung des oben geposteten Codes, es hinge damit zusammen, aber der Aufruf in OnShow lässt das Programm aus der Taskleiste verschwinden. Trotzdem nahm ich ihn kurz raus und es änderte sich nichts. Was genau meinst du mit dem Timer ?

[TonyR]

Pass auf ->

funktioniert bei mir einwandfrei!

Ich hab das aber eben nicht mit Hotkey gemacht, sondern nur mit Timer, wirste sehen.
Wenn das bei dir ausm Explorer auch nicht funktioniert weiß ich auch nicht -.-

[Nils_13]

Deins funktioniert. Anstelle vom Timer Hotkey und es klappt nicht mehr (dein Projekt umgebaut):

[Nils_13]

Ich konnte den letzten Beitrag logischerweise nicht mehr editieren und möchte aber für die Suche die Lösung für das Problem bereitstellen:

Delphi-Quellcode:

procedure TfrmMain.WMHotKey(var Message : TMessage);
begin
  if Message.wParam = HotKeyID then
    if Visible then
      Hide
    else
    begin
      Show;
      SetForeGroundWindow(Handle);
    end;
end;