Zitat von
Der.Kaktus:
und wenn Du nix weiter machst ausser dem "case"?..geht dann irgendwas nicht?
Das habe ich ja schon bereits erwähnt. Ich brauche einige Multimedia-Tasten. Das heißt, dass einige Multimedia-Tasten ihre ursprüngliche Funktion behalten sollen statt abgefangen zu werden.
//EDIT: Ich habe jetzt mit folgendem Code:
Delphi-Quellcode:
...
else begin
Application.Minimize;
if PostMessage(Msg.hwnd, Msg.message, Msg.wParam, Msg.lParam) then Application.Restore;
end;
...
Delphi-Quellcode:
procedure TMain.MultiKey(var Msg: tagMSG);
begin
case Msg.wParam of
720896: if radio <> 3 then Switch(radio + 1);
786432: if radio <> 0 then Switch(radio - 1);
851968: if btn_play.Caption = 'II' then btn_play.Click;
917504: btn_play.Click;
else begin
Application.Minimize;
if PostMessage(Msg.hwnd, Msg.message, Msg.wParam, Msg.lParam) then Application.Restore;
end;
end;
end;
festgestellt, dass
PostMessage(Msg.hwnd, Msg.message, Msg.wParam, Msg.lParam);
anscheinend so nicht funktioniert. Irgendwas ist da falsch.
Wäre über nen Tipp, was da falsch sein könnte sehr dankbar!
//EDIT ENDE
mfg. chri_ri