Str gedrückt?

[EineFrage9922]

Hallo
Wie frage ich ab, ob die Steuerung Taste gerade gedrückt ist?
Also ein Button soll bei gedrücktem Str eine andere Funktion bekommen!

[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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if mach_was_anderes then NoCtrlKey
    else JuppCtrlKey;
end;

So was ?

[toms]

Hallo

Das kannst du allgemein mit GetKeyboardState abfragen (Edit: oder in diesem Fall so wie Matti)

Delphi-Quellcode:

function CtrlPressed : Boolean;
var
  KeybdState: TKeyboardState;
begin 
  GetKeyboardState(KeybdState);
  Result := ((KeybdState[VK_CONTROL] and 128) <> 0);
end;

[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];

[Namenloser]

Wobei das nur funktioniert, wenn NUR Strg gedrückt ist, aber nicht noch zusätzlich Alt oder Shift.

das hier funktioniert auch, wenn noch andere tasten gedrückt sind:
mach_was_anderes := ssCtrl in Shift;