Wert aus Klasse nicht verfügbar

[hugo1990]

Ich würds gern testen, aber leider fehlen mir diese beiden Units:
dirs, HTMLColorConversions

Edit:
beim Codeüberfliegen habe ich den Fehler gefunden:

Delphi-Quellcode:

procedure TMainForm.ReceiveAppMessage(var Msg: TWMCopyData);
begin
  t4r.ReceiveAppMessage(Msg);
end;

Du stellst nicht sicher, dass t4r an dieser Stelle bereits erzeugt wurde. Wenn jetzt eine Nachricht empfangen wird, bevor t4r erzeugt wurde, gibt es eine Zugriffsverletzung.

Das hier sollte Abhilfe schaffen:

Delphi-Quellcode:

procedure TMainForm.ReceiveAppMessage(var Msg: TWMCopyData);
begin
  if t4r <> nil then
    t4r.ReceiveAppMessage(Msg);
end;

oder

Delphi-Quellcode:

procedure TMainForm.ReceiveAppMessage(var Msg: TWMCopyData);
begin
  if t4r = nil then
  begin
    t4r := Tt4r.Create(MainForm.Caption);
    t4r.ReceiveAppMessage(Msg);
  end;
end;

Edit2:
Außerdem solltest du das folgende nicht im OnShow sondern im OnCreate aufrufen:

Delphi-Quellcode:

  t4r := Tt4r.Create(MainForm.Caption);
  t4r.InitForm;