Wie kann ein Zeiger auf eine Funktion als Paramater übergeben werden?

[FriendOfDelphi]

Zitat von himitsu:

Du gibst z.B. deinem Constructor die Message-ID mit, speicherst sie im Objekt und vergleichst dann damit via IF in WndProc und schon hat jedes Objekt seine eigene Nummer.

Da ich das Senden der Message auch innerhalb des Objektes abhandle

Delphi-Quellcode:

procedure AdsRouterCallback( nEvent:Longint ); stdcall;
begin
  PostMessage(wndHandle, WM_ADSROUTERNOTIFICATION, nEvent, 0);
end;

müßte ich eine feste Liste für die verschiedenen Windows-Messages fest im Objekt integrieren und wäre dann darauf festgelegt.
Das wollte ich vermeiden.

[himitsu]

Delphi-Quellcode:

TMyObject = class(TComponent)
private
  FMessageID: LongWord;
protected
  procedure WndProc(Message: TMessage); override;
public
  constructor Create(Owner: TComponent; MessageID: LongWord);
  property MessageID: LongWord read FMessageID;
end;

procedure TMyObject.WndProc(Message: TMessage); 
begin
  if Message.msg = MessageID then 
  begin
    // mach was
  end;
end;

constructor TMyObject.Create(Owner: TComponent; MessageID: LongWord);
begin
  inherited Create(Owner);
  FMessageID := MessageID;
end;


id := WM_APP + 123;
obj := TMyObject.Create(nil, id);

PostMessage(obj.Handle, id, nEvent, 0);
obj.Perform(id, nEvent, 0);

oder irgendwie so

[FriendOfDelphi]

Zitat von himitsu:

Delphi-Quellcode:

TMyObject = class(TComponent)
private
  FMessageID: LongWord;
protected
  procedure WndProc(Message: TMessage); override;
public
  constructor Create(Owner: TComponent; MessageID: LongWord);
  property MessageID: LongWord read FMessageID;
end;

procedure TMyObject.WndProc(Message: TMessage); 
begin
  if Message.msg = MessageID then 
  begin
    // mach was
  end;
end;

constructor TMyObject.Create(Owner: TComponent; MessageID: LongWord);
begin
  inherited Create(Owner);
  FMessageID := MessageID;
end;


id := WM_APP + 123;
obj := TMyObject.Create(nil, id);

PostMessage(obj.Handle, id, nEvent, 0);
obj.Perform(id, nEvent, 0);

oder irgendwie so

So ganz funktiniert das noch nicht.
Ich habe noch zwei Fragen:
1.) Wird die Methode .WndProc automatisch aufgerufen, nachdem .Perform ausgeführt wurde?
2.) PostMessage und damit wohl auch .Perform sollen innerhalb der Klasse aufgerufen werden. Wie muss das dann aussehen?

[DeddyH]

WndProc ist der MessageHandler für alle Messages, die an Deine Komponente geschickt werden. Das bedeutet, dass sowohl PostMessage als auch Perform dazu führen (sollten), dass WndProc mit der entsprechenden Message durchlaufen wird. Falls nicht, hast Du irgend etwas falsch gemacht

[edit] Achja, dazu müsste Deine Komponente aber von TControl abgeleitet sein, wenn ich nicht irre. [/edit]

[FriendOfDelphi]

Also so wurde das über eine fest verknüpfte Message gemacht:

Delphi-Quellcode:

[...schnipp...]

  TMeineKlasse = class(TWinControl)
    procedure WMAdsDeviceNotification(var Message: TMessage); message WM_ADSDEVICENOTIFICATION; //feste Zuordnung von Methode zur Windows-Message

[...schnipp...]

Procedure NotificationCallback(   pAddr:PAmsAddr;
                                pNotification:PAdsNotificationHeader;
                                hUser:Longword ); stdcall;
begin
    PostMessage( HWND(hUser), WM_ADSDEVICENOTIFICATION, 0, 0);
end;

[...schnipp...]

Die Windows-Message message WM_ADSDEVICENOTIFICATION ruft natürlich nur die Methode procedure WMAdsDeviceNotification(var Message: TMessage) auf.
Deshalb habe ich das jetzt folgendermaßen geändert:

Delphi-Quellcode:

Procedure NotificationCallback(   pAddr:PAmsAddr;
                                pNotification:PAdsNotificationHeader;
                                hUser:Longword ); stdcall;
begin
    PostMessage(HWND(hUser), lwMessageID , 0, 0);
    ???.Perform(lwMessageID, 0, 0); //Hier weiß ich nicht weiter
end;

Um diese feste Zuordnung aufzulösen, soll eine eigene Windows-Message, mit der bei der Erzeugung des Objektes übergebenen Message-ID ("lwMessageID") gesendet werden.
Das PostMessage ist wohl richtig.
Aber anschließend muss ja noch WndProc mit der entsprechenden Message durchlaufen werden.
Das löst man mit Perform(lwMessageID, 0, 0) aus, richtig?
Hier weiß ich nicht weiter.

[DeddyH]

Auch PostMessage sollte WndProc auslösen, wenn ich keinen Denkfehler mache. Innerhalb von WndProc kannst Du doch dann die übergebene Message prüfen und dementsprechend reagieren.

[FriendOfDelphi]

Zitat von DeddyH:

Auch PostMessage sollte WndProc auslösen, wenn ich keinen Denkfehler mache. Innerhalb von WndProc kannst Du doch dann die übergebene Message prüfen und dementsprechend reagieren.

Ich habe wie in Nachricht #32 beschrieben im "protected"-Bereich

Delphi-Quellcode:

protected
  procedure WndProc(Message: TMessage); override;

eingefügt.

Bei override; meldet der Compiler den Fehler "Deklaration von 'WndProc' unterscheidet sich von vorheriger Deklaration."
Deshalb habe ich das override; gegen ein overload; ausgetauscht.

Und die Methode definiert:

Delphi-Quellcode:

procedure TMeineKlasse.WndProc(Message: TMessage);
begin
  if Message.msg = MessageID then
  begin
    // mach was
    ShowMessage('test');
  end;
end;

Soweit, so gut. Der Compiler meldet keinen Fehler.
Aber bei der Methodendefinition fehlen die "blauen" Punkte.
Die Methode wird also nicht mitcompiliert.

[DeddyH]

Wenn der Compiler meckert, tauscht man override einfach gegen overload? Eine sehr kreative Vorgehensweise. Wie wäre es denn mit

Delphi-Quellcode:

protected
  procedure WndProc(var Message: TMessage); override;

Nun könntest Du in der überladenen Methode einfach auf Deine Message prüfen und falls kein Treffer, inherited aufrufen, das sollte dann schon passen.

[FriendOfDelphi]

Zitat von DeddyH:

Wenn der Compiler meckert, tauscht man override einfach gegen overload? Eine sehr kreative Vorgehensweise. Wie wäre es denn mit

Delphi-Quellcode:

protected
  procedure WndProc(var Message: TMessage); override;

Nun könntest Du in der überladenen Methode einfach auf Deine Message prüfen und falls kein Treffer, inherited aufrufen, das sollte dann schon passen.

Ich muss wohl noch viel lernen. Dachte, es wäre ein Schreibfehler...

Ich habe jetzt noch folgendes Problem:

Delphi-Quellcode:

[...schnipp...]

  TMeineKlasse = class(TWinControl)
    procedure WMAdsDeviceNotification(var Message: TMessage); message WM_ADSDEVICENOTIFICATION; //feste Zuordnung von Methode zur Windows-Message
  private
    { Private-Deklarationen }
    FMessageID: LongWord;

[...schnipp...]

  public
    { Public-Deklarationen }
    property MessageID: LongWord read FMessageID;

[...schnipp...]

Ich kann die Property/Eigenschaft TMeineKlasse.MessageID in der Prozedur

Delphi-Quellcode:

Procedure NotificationCallback(   pAddr:PAmsAddr;
                                pNotification:PAdsNotificationHeader;
                                hUser:Longword ); stdcall;
begin
    PostMessage(HWND(hUser), TMeineKlasse.MessageID , 0, 0);
end;

nicht verwenden.
Der Compiler meldet den Fehler "Methodenbezeichner erwartet".
Kennt er die zu dem Zeitpunkt noch nicht?

[DeddyH]

Du brauchst eine Methode. Eine solche gehört immer zu einer Klasse.

Delphi-Quellcode:

procedure Wuppdi; //reguläre Prozedur

procedure TEineKlasse.Wuppdi; //Methode der Klasse TEineKlasse