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?