Fenster aktiv halten?

[gandime]

Hey,
gibt es eine möglichkeit mein Programm immer Aktiv zu halten (nicht nur im Vordergrund)?

mfg
gandime

[Luckie]

Das widerspricht der Philosophie von Windows. Wozu brauchst du diese Funktinalität?

[gandime]

Dieses Programm Prüft blos ob eine eingescannte Seriennummer (Via Strich-Code) mit einer eingegebenen übereinstimmt.
Naja dabei kann es halt vorkommen das das Fenster nicht mehr aktiv ist da die Benutzer möglicherweise auf die Tastatur kommen o.ä. sodass das Fenster nicht mehr aktiv ist. (Einen Alarm dafür wäre zwar eine Lösung aber leider keine gute, da sonst der ganze Betrieb einer Produktion kurzzeitig angehalten werden muss)

Gibt es nicht eine Function o.ä. die ausgelöst wird sobald das Fenster nicht mehr aktiv ist? Dann könnte man doch ganz einfach darauf reagieren, indem man es wieder "Aktiviert".

Die zweite Idee die ich hätte wäre ein Tastaturhook.

[DeddyH]

Probier es mal mit WM_ACTIVATE.

[gandime]

joa das läuft schon ganz gut:

Delphi-Quellcode:

procedure TForm1.InActive(var Msg:TWMActivate);
begin
  if not (Msg.Active=WA_ACTIVE) then
  begin
    SetForegroundWindow(application.Handle);
  end;
  inherited;
end;

blos SetForegroundWindow() funktioniert nicht so wie ich es mir vorgestellt habe^^
gibts da ne andere Funktion o.ä.?

[scrat1979]

Hallo!!

Du verwendest das Handle der Applikation, versuch mal das Handle des Hauptformulars (oder eben des entsprechenden Fensters), vielleicht hast Du dann mehr Glück

[gandime]

ne das geht leider alles ned so recht
sobald ich SetForegroundWindow() auf meine Form anwende und wieder ein anderes Fenster anklicke müsste ja egl wieder Msg.Active=WA_ACTIVE ausgelöst werden was aber nicht der fall ist.
Aber es wird immer ca. 35 mal ausgelöst wenn ich die Funktion benutze, wie sie dort steht.

Edit:
mit einer Boolean-Abfrage kann ich das mehrfache Aufrufen der Rutine verhindern aber das Fenster ist trotzdem nicht Aktiv dadurch:

Delphi-Quellcode:

var
  b:Boolean;

procedure TForm1.InActive(var Msg:TWMActivate);
begin
  if not (Msg.Active=WA_ACTIVE) and b then
  begin
    b:=false;
    SetForegroundWindow(application.Handle);
    b:=true;
  end;
  inherited;
end;

[gandime]

so jetzt hab jetzt nen Tastatur-Hook genommen :-/ die anderen Varianten wollten nicht so wie ich es wollte^^