Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Programm soll immer den Focus behalten (https://www.delphipraxis.net/49997-programm-soll-immer-den-focus-behalten.html)

gunSoft 19. Jul 2005 13:51


Programm soll immer den Focus behalten
 
Hi,
ich habe ein simples Zeiterfassungsprogramm, welches als Ersatz für eine Stempeluhr fungiert. Es besteht aus einer Form mit Zeitangabe und einem Editfeld welches die Stempelnummer per Barcode einliest.
Das funktioniert natürlich nur wenn das Programm bzw. das Editfeld den Focus hat.

Dazu halte ich mit
SetWindowPos(fmmain.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE)
das Programm immer im Vordergrund, blende mit
ShowWindow( findWindow( 'Shell_TrayWnd',nil), SW_HIDE) die Taskbar aus und sperre per Registry Key die Windowstasten.

Das Problem ist, daß wenn jetzt irgend eine Windowsmeldung kommt (z.B. ein Popup von der Wirelesskarte), dann verliert mein Programm den Focus. Es bleibt zwar wegen dem SetWindowPos-Befehl im Vordergrund, hat aber den Focus nicht mehr.

Hat jemand eine Idee wie man es anstellen kann, dass ein Programm niemals den Focus verliert?

Vielen Dank für jede Hilfe

Luckie 19. Jul 2005 13:56

Re: Programm soll immer den Focus behalten
 
Wenn es sowieso das einzigeste Programm ist, was laufen soll, dann würde ich es als Shell eintragen.

gunSoft 19. Jul 2005 14:07

Re: Programm soll immer den Focus behalten
 
ja es soll nur dieses Programm laufen, aber was meinst du mit als Shell eintragen? :oops:

Waldteufel 19. Jul 2005 14:39

Re: Programm soll immer den Focus behalten
 
Hi.

Sowas: http://www.german-nlite.de/thread.ph...=6711#post6711

Anstatt des Explorers (also des ganzen Drumherums wie Desktop und Taskbar) wird dann dein Programm gestartet ;-)

gunSoft 20. Jul 2005 12:51

Re: Programm soll immer den Focus behalten
 
cool! wieder was gelernt :coder:

nur leider löst es mein problem nicht. wenn irgendwelche
popups auf dem rechner auftauchen verliert das programm trotzdem den focus.

habs auch mit nem timer versucht und dort
Application.BringToFront;
MaskEdit1.SetFocus;
gemacht und das selbe auch bei application.onDeacitvate hinterlegt

Hab zum testen ein paar andere programme (windows explorer, ms outlook...) gestartet
und dann versucht auf diese zu wechseln. Interessant ist das sich z.B. bei ms outlook mein programm den focus wieder zurückholt, beim windows explorer aber nicht.
wenn ich ein net send auf diesen rechner mache legt sich das nachrichtsfenster zwar über mein programm, der focus bleibt aber bei meinem prog....

fazit: ich kann da kein eindeutiges Verhalten erkennen

:pale:


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz