Individuelle, eigene Messages erzeugen und abarbeiten

[FriendOfDelphi]

Hallo Wissende,

ich bin am verzweifeln.
Kann mal jemand kurz und knapp erläutern, wie man eigene, individuelle Windows-Messages erzeugt und abarbeitet.

Herausgefunden habe ich bis jetzt folgendes:
Windows-Messages erzeugt man u. a. durch

Delphi-Quellcode:

BOOL PostMessage(
    HWND hWnd,   // handle of destination window
    UINT Msg,   // message to post 
    WPARAM wParam,   // first message parameter
    LPARAM lParam    // second message parameter
   );

Soweit ich weiter verstanden habe, wird dadurch automatisch .WndProc(var Message: TMessage) aufgerufen und man kann innerhalb der Prozedur darauf reagieren.
Was mache falsch, wenn a) .WndProc nicht aufgerufen wird oder wenn b) var Message nicht gleich Msg von PostMessage ist?

[Luckie]

Kannst du dein Problem bitte noch mal genauer erläutern?

[FriendOfDelphi]

Zitat von Luckie:

Kannst du dein Problem bitte noch mal genauer erläutern?

Ich erzeuge mit PostMessage(HWND(hUser), hUser, 0, 0); eine Windows-Message.

In meiner Klasse habe ich eine eigene .WndProc -Methode implementiert:

Delphi-Quellcode:

procedure TMeineKlasse.WndProc(var Message: TMessage);
begin
  begin
    // mach was
  end;
  inherited;
end;

Soweit ich das verstanden habe müßte diese nach dem Senden aufgerufen werden.
Aber das passiert nicht.
Was mache ich falsch?

[Luckie]

Hast du auch eine Nachrichtenschleife, die die Nachrichten aus der Nachrichtenschlange abholt und die WndProc weitergibt?

[s.h.a.r.k]

Ich handhabe das immer so:

-- EDIT: Funktionierender Code drei Posts weiter unten.

Hat bisher immer geklappt.

[FriendOfDelphi]

Zitat von Luckie:

Hast du auch eine Nachrichtenschleife, die die Nachrichten aus der Nachrichtenschlange abholt und die WndProc weitergibt?

Nein. Ich wußte nicht, dass man eine solche braucht.
Wie muss ich das denn machen?

[FriendOfDelphi]

Zitat von s.h.a.r.k:

Ich handhabe das immer so:

Delphi-Quellcode:

const
  WM_MY_MESSAGE = WM_USER + 100;

type
TTest = class(TObject)
private
  procedure WndProc(var Msg: TMessage);
  procedure OnMyMessage(var Msg: TMessage); message WM_MY_MESSAGE;
end;

procedure TTest.WndProc(var Msg: TMessage);
begin
  Dispatch(Msg);
end;

procedure TTest.OnStartupMessage(var Msg: TMessage);
begin
  if (Msg.Msg = WM_MY_MESSAGE) then
  begin

  end;
end;

Hat bisher immer geklappt.

Das habe ich auch schon so hinbekommen.
Aber: Ich möchte die Verbindung zwischen der aufrufenden Windows-Message und der durch diese aufgerufenen Prozedur nicht fest in der Klasse implementieren.
Die Message-ID soll dem Objekt beim Create mit übergeben werden können. Daher kann ich nicht mit einer Konstanten arbeiten.

[s.h.a.r.k]

Ich muss auch noch schnell zurück rudern! Das Problem an meinem Code ist, dass das (Window-)Handle fehlt, an welches die Nachricht geschickt werden kann. Denn nur dann wird die WndProc() angesprungen.

Hier die funktionierende Version.

Delphi-Quellcode:

const
  WM_MY_MESSAGE = WM_USER + 100;

type
TTest = class(TObject)
private
  FHandle : HWND;
  procedure WndProc(var Msg: TMessage);
  procedure OnMyMessage(var Msg: TMessage); message WM_MY_MESSAGE;
public
  constructor Create(); reintroduce;
  destructor Destroy(); override;
end;

procedure TTest.WndProc(var Msg: TMessage);
begin
  Dispatch(Msg);
end;

procedure TTest.OnStartupMessage(var Msg: TMessage);
begin
  if (Msg.Msg = WM_MY_MESSAGE) then
  begin

  end;
end;

constructor TTest.Create();
begin
  inherited Create();
  FHandle := Classes.AllocateHWnd(Self.WndProc);
end;

destructor TTest.Destroy();
begin
  DeallocateHWnd(FHandle);
  inherited Destroy();
end;

-- EDIT: Dann bau halt eine passende if-Abfrage in die WndProc-Methode ein.

[FriendOfDelphi]

Zitat von s.h.a.r.k:

Ich muss auch noch schnell zurück rudern! Das Problem an meinem Code ist, dass das (Window-)Handle fehlt, an welches die Nachricht geschickt werden kann. Denn nur dann wird die WndProc() angesprungen.

Hier die funktionierende Version.

Delphi-Quellcode:

const
  WM_MY_MESSAGE = WM_USER + 100;

type
TTest = class(TObject)
private
  FHandle : HWND;
  procedure WndProc(var Msg: TMessage);
  procedure OnMyMessage(var Msg: TMessage); message WM_MY_MESSAGE;
public
  constructor Create(); reintroduce;
  destructor Destroy(); override;
end;

procedure TTest.WndProc(var Msg: TMessage);
begin
  Dispatch(Msg);
end;

procedure TTest.OnStartupMessage(var Msg: TMessage);
begin
  if (Msg.Msg = WM_MY_MESSAGE) then
  begin

  end;
end;

constructor TTest.Create();
begin
  inherited Create();
  FHandle := Classes.AllocateHWnd(Self.WndProc);
end;

destructor TTest.Destroy();
begin
  DeallocateHWnd(FHandle);
  inherited Destroy();
end;

-- EDIT: Dann bau halt eine passende if-Abfrage in die WndProc-Methode ein.

Kann ich dann ganz auf procedure OnMyMessage(var Msg: TMessage); message WM_MY_MESSAGE; verzichten?

Verwende Delphi 5.
AllocateHWnd kennt der Compiler nicht...

[FriendOfDelphi]

Zitat von FriendOfDelphi:

Zitat von s.h.a.r.k:

Ich muss auch noch schnell zurück rudern! Das Problem an meinem Code ist, dass das (Window-)Handle fehlt, an welches die Nachricht geschickt werden kann. Denn nur dann wird die WndProc() angesprungen.

Hier die funktionierende Version.

Delphi-Quellcode:

const
  WM_MY_MESSAGE = WM_USER + 100;

type
TTest = class(TObject)
private
  FHandle : HWND;
  procedure WndProc(var Msg: TMessage);
  procedure OnMyMessage(var Msg: TMessage); message WM_MY_MESSAGE;
public
  constructor Create(); reintroduce;
  destructor Destroy(); override;
end;

procedure TTest.WndProc(var Msg: TMessage);
begin
  Dispatch(Msg);
end;

procedure TTest.OnStartupMessage(var Msg: TMessage);
begin
  if (Msg.Msg = WM_MY_MESSAGE) then
  begin

  end;
end;

constructor TTest.Create();
begin
  inherited Create();
  FHandle := Classes.AllocateHWnd(Self.WndProc);
end;

destructor TTest.Destroy();
begin
  DeallocateHWnd(FHandle);
  inherited Destroy();
end;

-- EDIT: Dann bau halt eine passende if-Abfrage in die WndProc-Methode ein.

Kann ich dann ganz auf procedure OnMyMessage(var Msg: TMessage); message WM_MY_MESSAGE; verzichten?

Verwende Delphi 5.
AllocateHWnd kennt der Compiler nicht...

Da das Thema immer noch aktuell ist, möchte ich diesen Post noch einmal aufleben lassen.
Wie kann ich denn den Lösungsansatz von s.h.a.r.k ohne AllocateHWnd unter Delphi 5 realisieren?