Also das will irgendwie so nicht funktionieren:
Delphi-Quellcode:
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
Msg.Result := 0;
end;
end;
end;
Die Funktionen in meinem Tool funktionierten zwar wieder wunderbar aber irgendwie werden die nicht benötigten nicht weitergereicht.
Was mache ich falsch?
Und sorry für den Push. Erstmal thx!
mfg. chri_ri