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 Mit Tastenkombination zu einer bestimmten Taste springen (https://www.delphipraxis.net/41879-mit-tastenkombination-zu-einer-bestimmten-taste-springen.html)

superstar025 10. Mär 2005 06:58


Mit Tastenkombination zu einer bestimmten Taste springen
 
Hallo habe folgende Frage.

Wie kann ich zum beispiel mit einer Tastenkomination (Alt+S) zu einem ganz bestimmten feld oder button springen. (Edit1 oder Button1)

mfg

matthias

Sharky 10. Mär 2005 07:06

Re: Mit Tastenkombination zu einer bestimmten Taste springen
 
Hai superstar,

wenn vor Deinem Edit ein Label ist kannst Du es über dessen AcceleratorChar machen. Also einfach ein & vor den Buchstaben setzen.
Jetzt noch die Eigenschaft Focus Kontrol setzen und Du kannst mit ALT-taste zu dem Edit springen.

chrisw 10. Mär 2005 07:08

Re: Mit Tastenkombination zu einer bestimmten Taste springen
 
ich würde ein non visible Menu einbauen, und im menupunkt über den hotkey den focus auf das control setzen.

Chris

microtronx 10. Mär 2005 07:23

Re: Mit Tastenkombination zu einer bestimmten Taste springen
 
Hi Supasta,

ich würde es einfach über die FORM.OnShortCut abfangen und dem Editfeld den Focus mit "editfeld02.setfocus" zuweisen.

Mfg.

superstar025 10. Mär 2005 07:33

Re: Mit Tastenkombination zu einer bestimmten Taste springen
 
ich glaub die on short cut ist die richtige methode in diesem fall jedoch weiss ich die syntax dazu nicht insbesondere nicht wie ich die tastenkombination da unter bekommen

wer weiss die syntax

mfg
matthias

microtronx 10. Mär 2005 08:12

Re: Mit Tastenkombination zu einer bestimmten Taste springen
 
Hier ein Schnippsel, der bestimmt weiterhilft.

Delphi-Quellcode:
procedure TMyForm.ApplicationShortcut(var Msg: TWMKey; var Handled: Boolean);
begin
 // wenn ALT + STRG + H gedrückt ist ...
 if (msg.CharCode=ord('H')) or (msg.charcode=ord('h')) then
 if (GetKeyState(VK_CONTROL) < 0) and (GetKeyState(VK_MENU) < 0) then begin
    MyHideFunction;
 end;
end;
Mfg.


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

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