Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi space taste sperren und freigeben ohne onKeyPress (https://www.delphipraxis.net/76830-space-taste-sperren-und-freigeben-ohne-onkeypress.html)

Katrin_K 11. Sep 2006 13:24

Re: space taste sperren und freigeben ohne onKeyPress
 
Hi luigied
"test" bedeutet soviel wie "Ich habe noch keine konkreten Vorstellungen wie der Text aussehen wird und habe test als platzhalter benutzt".

Wie gesagt. Ich habe ein Bild das ich mathematisch verändere.
Darüber könne ich das Label mit der Textnachrich legen, aber ich möchte den Nebeneffect eines MessageDialog der die Anwendung pausieren läßt.
Sprich:

1. Bild verändert sich endlos.
2. User drückt taste --> Anwendung pausiert und Nachricht wird ausgegeben
3. user klickt das fenster weg -> Nachricht verschwindet und anwendung läuft weit

trotzdem danke luigied für deinen Beitrag.

LG Katrin

DGL-luke 11. Sep 2006 13:26

Re: space taste sperren und freigeben ohne onKeyPress
 
du könnest auf jeden fall eine eigenen form nehmen, die du mit ShowModal öffnest. die pausiert das programm auch. und da kannst du dann vielleicht dein leertastenproblem lösen ;)

Hawkeye219 11. Sep 2006 13:41

Re: space taste sperren und freigeben ohne onKeyPress
 
Hallo Katrin,

du könntest die Abfrage über GetAsyncKeyState durch eine TAction ersetzen, in welcher du die Leertaste als ShortCut einträgst. Diese Action muß nicht mit einem Control verknüpft sein, deine "Rechenschleife" sollte jedoch von Zeit zu Zeit die Nachrichtenverarbeitung über Application.ProcessMessages anstoßen.

Gruß Hawkeye

Katrin_K 11. Sep 2006 13:54

Re: space taste sperren und freigeben ohne onKeyPress
 
Danke DGL-luke

Super Idee.


Habe eine Dialogbox genommen und den Button ausgetauscht und es funktioniert.


Danke luke :-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:57 Uhr.
Seite 2 von 2     12   

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