Bestimmte WM_APPCOMMAND teilweise weiterleiteten an Standard

[chri_ri]

Also ich habe eine kleines tool, worin eine Art Mini-Player integriert ist. Die Ansteuerung über die Multimedia-Tasten klappt perfekt (Wenn auch leider nur im Focus). Jedoch gibt es ein kleines Problem: ich brauche nicht alle Multimediatasten. Ich brauche nur Stop, Play/pause, next/back-track und viellei eventuell später noch ein oder zwei andere. Der Rest wie Laut/leise und ton Aus brauche ich nicht in meinem Tool, dafür jedoch deren uhrsprünglichen Zweck. Nun also meine Frage, wie ich die nicht benötigten Messages wieder weitergeben kann.

So hab ichs im Moment gelöst (ohne Weitergabe):

Delphi-Quellcode:

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

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;
  end;
end;

Nun möchte ich suche ich noch eine Möglichkeit bei der Case-Anweisung irgendwie die Ungenutzen Messages weiterzuschicken, statt abzufangen.

Schonmal Thx im Vorraus!



mfg. chri_ri

[Der.Kaktus]

Hallo, vielleicht mit Postmessage im Else Zweig?

[chri_ri]

@Der.Kaktus: hm ok hab ich mir auch schon gedacht aber das war mir bissl zu einfach um die lösung zu sein. nungut ok aber wenn, dann welches handle? handle 0? weil ich will das ja einfach so hinaus schickn sozusagen und nicht speziell an einen bestimmten prozess.


mfg. chri_ri

[Der.Kaktus]

Zitat von chri_ri:

@Der.Kaktus: hm ok hab ich mir auch schon gedacht aber das war mir bissl zu einfach um die lösung zu sein. nungut ok aber wenn, dann welches handle? handle 0? weil ich will das ja einfach so hinaus schickn sozusagen und nicht speziell an einen bestimmten prozess.


mfg. chri_ri

Du bekommst doch das Handle woher die Message kommt..zurueck an Absender

[chri_ri]

@Der.Kaktus:

Zitat von Der.Kaktus:

Du bekommst doch das Handle woher die Message kommt..zurueck an Absender

Habe ich ja auch gedacht aber es geht nicht:

PostMessage(Msg.hwnd, Msg.message, Msg.wParam, Msg.lParam);

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 PostMessage(Msg.hwnd, Msg.message, Msg.wParam, Msg.lParam);
  end;
end;

Das scheint sozusagen dann wohl vermutlich von dort auch bloß wieder an mein Tool zurück zu kommen



mfg. chri_ri

[Der.Kaktus]

und wenn Du nix weiter machst ausser dem "case"?..geht dann irgendwas nicht?

[chri_ri]

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

[chri_ri]

Thema beendet.

Lösung gibts bei: http://www.delphipraxis.net/internal...t.php?t=141699



mfg. chri_ri