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 ?