API-Funktion SetWindowPos

[s-off]

Zitat von juezi:

Hallo,

ich habe folgende Ereignisse probiert OnKeyDown und OnKeyPress, hier habe ich breakpoints gesetzt, wenn mein Formular aktiv ist komme ich in OnKeyPress bei einer Eingabe rein, wenn mein Formular nicht aktiv ist komme ich nicht zum breakpoint, OnKeyDown reagiert überhaupt nicht, (aktiv oder nicht aktiv)

Danke

Tschuldigung, meinte auch Press, nicht Down... Also bekommt Deine Anwendung keine Infos.
Dann wirst Du wohl entweder das probieren müssen, was Rolf Warnecke beschrieben hat, oder Dich wirklich mit Tastaturhooks beschäftigen müssen.

Vielleicht ist es auch möglich, irgendwie auf die Windowsmessage (WM_KILLFOCUS) zu reagieren, sobald Dein Fenster den Fokus verlieren soll.
Kannst ja mal rumtesten.

[juezi]

Hallo,

wo sollte ich Deiner Meinung nach den (WM_KILLFOCUS) abfragen, durch den Timer der läuft?

Danke

[s-off]

Zitat von juezi:

Hallo,

wo sollte ich Deiner Meinung nach den (WM_KILLFOCUS) abfragen, durch den Timer der läuft?

Danke

Nee,

Du deklarierst Dir eine Prozedur im Private-Abschnitt Deiner Klasse:

Delphi-Quellcode:

Type
   TForm1 = Class(TForm)
   private
      Procedure KillFocus(Var Message: TMessage); message WM_KILLFOCUS;
   End;

Mit STRG+SHIFT+C erzeugst Du dann den Methodenrumpf und schaust mal, was Du da drin anstellen kannst.

[juezi]

Hallo,

danke, wird diese Methode nur ausgeführt wenn der Fokus von einer anderen Anwendung gekillt wird?
Ich kann im Moment nicht so richtig folgen was Du meinst.

Danke

[s-off]

Dein Fenster erhält die Message 'WM_KILLFOCUS', sobald es den Fokus verlieren soll, unabhängig davon, ob das von einer anderen Anwendung ausgeht, oder nicht.

[juezi]

Hallo,

sorry für meine Unwissenheit, aber ich weiß nicht wo ich diese WM_KILLFOCUS bekommen soll
ich habe es wie folgt probiert

Delphi-Quellcode:

procedure TForm1.KillFocus(var Message: TMessage);
begin
  Label2.Caption := 'Fokus gekilled';
end;

wenn ich aber auf andere Anwendungen klicke läuft meine Anwendung nicht in diese procedure rein,
muss ich noch irgendwelche uses angeben oder mache ich grundsätzlich etwas falsch.

Danke

[s-off]

Hmm, alles sehr mysteriös.

Bei mir springt er in die Prozedur, bevor meine Form den Fokus verliert; egal auf welche Art und Weise.

[juezi]

Hallo,
muss ich noch irgendeine Abfrage in einem Timer machen oder reicht wirklich nur das Einfügen der procedure.

Danke

[s-off]

Nein, keine Abfrage im Timer.

Prozedur wie gezeigt deklarieren und implementieren.
Dann den Rumpf mit Daten füllen. Was da rein kann, um Dein Problem musst Du selber testen.
Evtl. kannst Du Durch Antwort auf die Nachricht verhindern. Probier's halt aus.

Sobald Deinem Formular dann der Verlust des Fokus droht (WM_KILLFOCUS), wird die Prozedur angesprungen.

Vielleicht gibt es noch eine Message, die das Formular erhält nachdem es den Fokus verloren hat. Da könntest Du dann wieder mit SetWindowPos agieren...

[juezi]

Hallo,

ich habe jetzt eine Lösung gefunden die vielleicht nicht die beste ist aber in meinem Fall kann ich meine Barcodeanwendung aktivieren, ich habe folgendes gemacht
Ich setze meinen Cursor mit SetCursorPos(x,y) auf mein Formular und löse mit
mouse_event einen Click aus, wie gesagt nicht die feine Art aber wirkungsvoll.

Vielen Dank für Eure Hilfe