Wert aus Klasse nicht verfügbar

[Ruio]

Zitat von hugo1990:

beim Codeüberfliegen habe ich den Fehler gefunden:
[delphi]
Das hier sollte Abhilfe schaffen:

Code:

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

oder

Code:

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

Dann kommen ja die Messages nicht durch bzw. create ichh meine Klasse ja nochmal.
Ich werds ein bisschen umschreiben und nochmal testen.



Edit: Es geht jetzt!