Tastenkombination für Strg+C!

Silvia · Beiträge: 67

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 raziel: Code- durch Delphi-Tags ersetzt.

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Probier mal folgendes:

markieren

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 · Beiträge: 67

Danke,

so funzt es!

wulfskin · Verfasst: Do 17.02.05 18:04

Nur zur Vervollständigung:

markieren

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!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

wulfskin hat folgendes geschrieben:

Nur zur Vervollständigung:

markieren

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.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme