Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi ShortCut ? (https://www.delphipraxis.net/71147-shortcut.html)

Vader 9. Jun 2006 16:16


ShortCut ?
 
hallo,

bei einen menüpunkt (MainMenu ) kann ich über die eigenschaft shortcut eine tastenkombination eingeben damit der hinterlegte code ausgeführt wird,
geht das auch ohne die komponente MainMenu, ich würde gerne mit einen shortcut
eine andere form öffnen ?
mfg vader

Martin K 9. Jun 2006 16:19

Re: ShortCut ?
 
Was genau meinst Du denn mit "ohne die komponente MainMenu" ?
Du könntest z.B. bei OnKeyDown abfragen, ob die entsprechende Tastenkombination gedrückt wurde...

monta 9. Jun 2006 16:20

Re: ShortCut ?
 
Du kannst es beispielsweise über das KeyUp-Ereignis der Form machen.

Dazu musst du bei der Form KeyPreview auf true stellen und ansonsten halt ungefähr so:

Delphi-Quellcode:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssShift in Shift) and (Key = Ord('S')) then //dies würde beispielsweise bei Shift + S ausgelöst
    //Aktion.................
//zu langsam, oder natürlich KeyDown^^

_frank_ 9. Jun 2006 17:28

Re: ShortCut ?
 
suchst du evtl. sowas:
http://www.swissdelphicenter.ch/de/showcode.php?id=147

Gruß Frank

Vader 9. Jun 2006 19:24

Re: ShortCut ?
 
hallo frank

das ist nicht schlecht, aber ich möchte jetzt nur mit einen buchstaben die form öffnen zb. nur mit "S" oder
"G", also keinein shortcut,brauche nur den code kürzen

Delphi-Quellcode:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //if (ssShift in Shift) and (Key = Ord('S')) then
   if (Key = Ord('S')) then
    form2.show ;
end;
aber jetzt möchte ich mehrere form's öffnen,
ich habe einmal von einer caseschleife gehört, kann man das mit einer caseschleife
realisieren und wie ?

möchte 5 verschiede formen öffnen mit 5 verschiedenen shortcut's

mfg vader

Vader 9. Jun 2006 19:33

Re: ShortCut ?
 
vergesst meine frage, ich muß ja nur weitere if's setzten und dann geht's !
mfg vader

Helmi 9. Jun 2006 19:41

Re: ShortCut ?
 
Hallo,

meintest du vielleicht so was mit Case:

Delphi-Quellcode:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    Ord('S'): ShowMessage('S wurde gedrückt');
    Ord('D'): ShowMessage('D wurde gedrückt');
  end;
end;

Go2EITS 28. Sep 2006 13:03

Re: ShortCut ?
 
Ich hänge hier mal meine Frage ran, weil ich wohl hierzu passt:
Und wie zeige ich im Button meinen Shortcut an? z. B. um es so zu zeigen: Suche beginnen.

jfheins 28. Sep 2006 13:21

Re: ShortCut ?
 
Mit einem &-Zeichen vor dem Buchstaben ... um die Unterstiche anzuzeigen, Alt drücken ;)

xaromz 28. Sep 2006 13:36

Re: ShortCut ?
 
Hallo,
Zitat:

Zitat von jfheins
Mit einem &-Zeichen vor dem Buchstaben ... um die Unterstiche anzuzeigen, Alt drücken ;)

Noch eine Anmerkung: Durch das & vor dem Zeichen ist auch gleich ein Shortcut definiert, d. h. man muss nicht wie oben beschrieben selbst darauf reagieren.

Gruß
xaromz


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:17 Uhr.
Seite 1 von 2  1 2      

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