Messages weiterleiten

[Mithotyn]

Hallo Forum !!

Ich suche eine Möglichkeit eine "transparente" Form zu schaffen. Transparent in dem Sinne, dass alle MouseMessages die in meiner Anwendung auftreten an das darunterliegende Fenster weitergeleitet werden.

Also die Messages mit ner Methode abfangen, und mit SendMessage weiterleiten dachte ich.

( Um es einfacher zu machen. Das darunterliegende Fenster ist immer der Desktop. )

Gruß Joachim

[fkerber]

HI!

Willst du die Messages auch in deinem Programm haben oder reicht es dir, wenn dein Programm "durchklickbar" ist.
Falls ja, such mal in der DP. Das hatten wir schon mal.

Ciao fkerber

[Mithotyn]

Hi fkerber !!

Also ich hab jetzt nochmal gesucht aber immernoch nichts passendes gefunden.

Meine Form an sich ist ja schon durchklickbar. Ich hab transparent auf true gesetzt.
Aber auf der Form ist ein Label drauf. Mit diesem Label will ich auf dem Desktop einen Status von einem
Rechner anzeigen ("online" oder "offline").

Nur ist halt das Label noch anklickbar. Und das soll es auch nicht. Ich will also wenn einer auf das Label klickt, dass diese Message an das darunterliegende Fenster weitergeleitet wird.
Am deutlichsten wird es, wenn ich ein Icon vom Desktop Drage und über das Label ziehe. Da kommt dann das Nicht-Ablegen-Symbol. Es soll aber so funktionieren, dass ich das Icon quasi hinter dem Label droppen kann. Also als ob meine Form garnicht da wäre.

Da meine Form nur diese eine statische Label hat, können der einfachheit halber einfach alle Messages weitergegeben werden können. Ich brauche sie in meinem Programm nicht.

Gruß Joachim

[shmia]

Zitat von Mithotyn:

...dass alle MouseMessages die in meiner Anwendung auftreten an das darunterliegende Fenster weitergeleitet werden.
Also die Messages mit ner Methode abfangen, und mit SendMessage weiterleiten dachte ich.

Dann solltest du die Methode WinProc deines Formulars überschreiben:

Delphi-Quellcode:

procedure TMyTransparentForm.WndProc(var Message: TMessage);
begin
   case Message.Msg of
      // bestimmte Messages vom Formular behandeln lassen
      // welche dies sind, musst du selbst rausfinden
      WM_DRAWITEM, WM_MEASUREITEM:
      begin
         inherited WndProc(Message);
         Exit;
      end;
   else
      begin
         // der Rest an das "unterliegende" Fenster weitergeben
         Message.Result := SendMessage(xxHandle, Message.Msg, Message.Wparam, Message.LParam);
      end;
   end;
end;

[me2u]

Oder siehe hier: http://www.delphipraxis.net/internal...ct.php?t=21986