Keypress : Strg+Shift ?

[thomas2009]

Hallo

in Onkeydown funktioniert dieser Code wunderbar:

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 ?

[SirThornberry]

warum willst du diesen Code wo anders auslagern? OnKeyDown und OnKeyPress unterscheiden sich entscheident. Im OnKeyDown bekommst du die Taste welche gedrückt wurde im OnKeyPress hingegen bekommst du das Zeichen was dabei entsteht.

[himitsu]

sicher, daß der so wunderbar funktioniert?
(die Abfrage für Strg+Shift sieht jedenfalls falsch aus)

und in FormKeyPress geht das garnicht, da dort die Control-Tasten nicht einzeln übergeben werden

[Fussball-Robby]

Zitat von thomas2009:

in Onkeydown funktioniert dieser Code wunderbar:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

if ((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;

Ich glaube kaum, dass der Code wunderbar funktioniert. Denn du fragst zwei mal den gleichen Status ab (Strg gedrückt, Shift nicht). Auch mir stellt sich die Frage: Warum willst du den Code woanders hin verlagern?

[thomas2009]

Sorry, Ich habe "not" ein mal vergessen
also so :

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;