Logging in Form aus anderer Unit steuern

[seifman]

Ich mache das ganze über Messages.

In der Form, in der auch das Logging geschieht, gibt es die Methode WMWriteLog.

procedure WMWriteLog(var AMessage : TMessage); message WM_WRITELOG;

Delphi-Quellcode:

procedure TfrmMain.WMWriteLog(var AMessage: TMessage);
var
  lMessage : PChar;
begin
  lMessage := PChar(AMessage.WParam);
  if (Length(lMessage) > 0) then
    FLog.Add(lMessage);

  StrDispose(lMessage);
end;

An den Stellen, wo ich etwas an das Log übergeben will nutze ich dann "SendMessage" um meinen Text zu an die Form zu schicken.

Delphi-Quellcode:

procedure WriteLog(AMessage: string);
var
  lMessage : PChar;
begin
  lMessage := StrAlloc(Succ(Length(AMessage)));
  StrPCopy(lMessage, AMessage);
  SendMessage(FParentHandle, WM_WRITELOG, integer(lMessage), 0);
  Application.ProcessMessages;  
end;

Ob das nun die sauberste Lösung ist, kann ich nicht versprechen - sie funktioniert aber.

[gssaug]

OK ich hänge an der Stelle, wo ich dem SendMessage ein Objekt vom Typ HWND übergeben muss. Dieses erzeuge ich durch beispielsweise self.handle. Mein Objekt vom Typ meiner Klasse hat aber kein Handle. Wie kann ich das hinzufügen oder muss ich einen eigenen Handler schreiben.

Was ist HWND überhaupt für ein typ?

Danke vielmals aber für die Idee

[DeddyH]

HWND ist ein Fensterhandle.