Eigene Tastenkombinationen?

[Sharky]

Hai citybreaker,

setze KeyPreview der Form auf True und werte das OnKeyDown-Ereigniss aus.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((ssalt in Shift) and (ssctrl in shift)) then  //Ctrl und ALT gedrückt
  begin
    if (Key = 32) then  //Space gedrück
    begin
      if (ActiveControl.Name = 'Edit1') then  //Name des Activencontrols
      begin
        ShowMessage ('CTRL-ALT-Space in Edit1');  //Aktion
      end;
      if (ActiveControl.Name = 'Button1') then
      begin
        ShowMessage ('CTRL-ALT-Space bei Button1');
      end;
    end;
  end;
end;