Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.434 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: PostMessage: Objekte "verschicken" führt zu Access Violation

  Alt 4. Mär 2011, 08:33
Und natürlich auch den Empfang des Objektes anpassen:
Delphi-Quellcode:
procedure TApLogCustomModule.APMRecieveMessage(var Msg: TMessage);
var
  p : TApLogMessage;
begin
  try
    p := Pointer(Msg.WParam);
    FMessageQueue.Enqueue(p);
    while (Cardinal(FMessageQueue.Count) > FMaxBufferElements) do
      FMessageQueue.Dequeue().Free();
  finally
    Msg.Result := 1;
  end;
end;
PS.
WParam und LParam sind beide jeweils 32Bit.
  Mit Zitat antworten Zitat