Dynamisch erstellte Form bleibt weiß

[haentschman]

Hallo...

in der Uses steht die Unit mit TFmDialogChat drin ?

versuch mal:

Delphi-Quellcode:

var
  Window: TForm;
begin
  Window := TFmDialogChat.Create(nil);
  try
    try
      Window.ChatData.ChatMessage := AMessage;
      Window.ChatData.ChatPartnerName := ANickname;
      Window.ChatData.ChatPartnerHost := AHost;
      Window.Show;
    except
      ShowMessage(SysErrorMessage(GetLastError));
    end;
  finally
    Window.Free;
  end;

Window als Variablennamen finde ich grenzwertig.