Str gedrückt?

[inherited]

Zitat von turboPASCAL:

Delphi-Quellcode:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Shift =  [ssCtrl]
    then mach_was_anderes := TRUE
    else mach_was_anderes := FALSE;
end;

Oder einfacher
  mach_was_anderes := Shift = [ssCtrl];