WM_APPCOMMAND - Nur benötigte Commandos abfangen?!

[chri_ri]

Geil Danke, ihr seid die besten!^^ Ich weiß schon, warum ich in diesem Forum poste^^

Also habe jetzt beide Varianten probiert. inherited und self.handle geht^^ Wie immer ist die einfachste die beste Lösung XD Naja ich denke sowieso imma bissl kompliziert XD

Also hier nochmal die komplette Lösung für alle, die eventuell selber mal sowas benötigen:

Delphi-Quellcode:

type
  TMain = class(TForm)
    procedure MultiKey(var Msg: TMessage); message WM_APPCOMMAND;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TMain.MultiKey(var Msg: TMessage);
begin
  case Msg.lParam of
    $B0000: if radio <> 3 then Switch(radio + 1);
    $C0000: if radio <> 0 then Switch(radio - 1);
    $D0000: if btn_play.Caption = 'II' then btn_play.Click;
    $E0000: btn_play.Click;
    else begin
      inherited;
      // oder Msg.Result := DefWindowProc(self.Handle, msg.Msg, msg.WParam, msg.LParam);
    end;
  end;
end;

mfg. chri_ri