Delphi Keypress : Strg+Shift ?

Thema durchsuchen

Ansicht

Themen-Optionen

Keypress : Strg+Shift ?

Ein Thema von thomas2009 · begonnen am 24. Jan 2009 · letzter Beitrag vom 24. Jan 2009

Vorheriger Beitrag

Nächster Beitrag

thomas2009

(Gast)

n/a Beiträge

Keypress : Strg+Shift ?

24. Jan 2009, 22:57

Hallo

in Onkeydown funktioniert dieser Code wunderbar:

markieren

Delphi-Quellcode:

			procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if (not(ssCtrl in Shift) and not (ssShift in Shift) )  then Begin

    ShowMessage('Strg+Shift');end;

if ((ssCtrl in Shift) and not (ssShift in Shift) )  then Begin

    ShowMessage('Strg');end;

Wie soll der Code in FormKeypress und in FormShortCut ?