@sirius:
Erstmal Thx, aber wie benutze ich das?
so
else Msg.Result := DefWindowProc(0, msg.Msg, msg.WParam, msg.LParam);
Hab jetzt übrigens meinen code ein wenig geände (Den Message-Typ und im Case von wparam zu lparam):
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 Msg.Result := DefWindowProc(0, msg.Msg, msg.WParam, msg.LParam);
end;
end;
Bin noch relativ Neuling auf dem Gebiet der Messages.
mfg. chri_ri