Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Tasten drücken ? (https://www.delphipraxis.net/6564-tasten-druecken.html)

Patrick2011 15. Jul 2003 12:13


Tasten drücken ?
 
Hallo ... :coder:

Ich möchte wenn ich zum Beispiel Strg-A drücke das dann im Programmm das selbe passiert als ob ich Button1 drücke !!

:wink:

Basic-Master 15. Jul 2003 13:06

Re: Tasten drücken ?
 
wie? wenn du innerhalb deiner anwendung strg+a drückst, soll ein code von button1 ausgeführt werden? mach ne actionlist, da machste ne neue action, mach als shortcut von der action Strg+A, in dem event onexecute steckste dann den code von button1 rein, starte dein programm, drück Strg+A und es sollte funktionieren :wink:

Patrick2011 15. Jul 2003 13:30

Re: Tasten drücken ?
 
Genau das !!

Ich starte mein Programm (A)

Programm (A) läuft

Butten1 drücken (MSGBOX: Hallo)
Strg+ A drücken (MSGBOX: Hallo)

:chat:

Alexander 15. Jul 2003 13:42

Re: Tasten drücken ?
 
ISt das Problem jetzt gelöst?
Du kannst auch mit Button1Click(Sender); den Code von Button1Click ausführen lassen.

Basic-Master 15. Jul 2003 13:43

Re: Tasten drücken ?
 
wenn du weniger code haben willst, dann mach bei caption von deiner action noch die caption von deinem button, bei deinem button setzt du dann noch die eigenschaft action auf deine action. dann brauchste auch net das button1click-ereignis.

Sharky 15. Jul 2003 14:52

Re: Tasten drücken ?
 
Warum alles so komliziert?

Setzte in deiner Caption des Buttons vor das Zeichen bei dem es mit CTRL ausgeführt werden soll ein &.

z.B.:

Delphi-Quellcode:
 Button1.Caption := '&Drucken';
Fertig ist der Lack.

[EDIT] QUATSCH !!!! Das geht ja nur mit ALT und nicht mit STRG [/EDIT]

Setzt einfach bei dem Formulat KeyPreview auf True und werte im OnKeyDown die gedrücken Tasten aus!


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:31 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