Entwickler-Ecke

Sonstiges (Delphi) - Tastenkombination für Strg+C!


Silvia - Do 17.02.05 17:28
Titel: Tastenkombination für Strg+C!
Hallo,

ich versuche die Tastenkombi Strg+C abzufragen, aber es funzt nicht!


Delphi-Quelltext 
1:
 
 if (shift = [ssCtrl]) AND (Key = vk_C) then


was mache ich falsch?

Moderiert von user profile iconraziel: Code- durch Delphi-Tags ersetzt.


delfiphan - Do 17.02.05 17:35
Probier mal folgendes:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (key = word('C')) and (ssCtrl in Shift) then
  ShowMessage('Ctrl+C gedrückt');
end;


Gruss


Silvia - Do 17.02.05 17:40
Danke,

so funzt es!


wulfskin - Do 17.02.05 18:04
Nur zur Vervollständigung:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
 
{...}
  (ssCtrl in Shift)
  //Ist immer wahr, wenn Shift gedrückt ist. Es kann aber auch zusätzlich Alt und Strg gedrückt sein.

  (ssCtrl = Shift)
  //Ist nur Wahr, wenn nur Shift gedrückt ist.
Gruß Hape!


delfiphan - Do 17.02.05 18:17
wulfskin hat folgendes geschrieben:
Nur zur Vervollständigung:

Delphi-Quelltext 
1:
2:
3:
 
{...}
  (ssCtrl = Shift)
  //Ist nur Wahr, wenn nur Shift gedrückt ist.

Auch nur zur Vervollständigung: Du hast wohl [ssCtrl] = Shift gemeint. Du kannst nicht eine Menge mit einer Konstanten vergleichen.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!