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