Dynamisch erstellte Form bleibt weiß

[delphinub23]

Hallo DPler,

ich habe hier ein kleines Problem und sehe wahrscheinlich den Wald vor lauter Bäumen nicht...

Ich erzeuge dynamisch eine Form und möchte diese anzeigen. Nur leider bleibt diese weiß und ist nicht klickbar. Wenn ich .ShowModal angebe, geht das Forumlar immerhin auf und ich kann darin klicken.

Code:

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

Bin dankbar für jeden Tipp.

[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. :zwinker:

[delphinub23]

Zitat:

in der Uses steht die Unit mit TFmDialogChat drin ?

Ja.

Zitat:

Window als Variablennamen finde ich grenzwertig.

Du hast Recht. Ich ändere das.

Mit deinem Vorschlag verändert sich nichts. Das Problem bleibt bestehen :(

[haentschman]

Ist das Chatfenster Firemonkey ? (Wegen dem fm...)

[delphinub23]

Ja.

[haentschman]

Upps... da muß ich passen, da ich es nicht testen kann. Dann funktioniert in meinem Vorschlag ja auch TForm nicht. Tausche das mal durch die FM Version aus.

[delphinub23]

Die FM-Version nennt sich auch TForm, ist aber deklariert in Fmx.Forms.pas.
Das wird wohl nicht der Fehler sein, oder?

[haentschman]

Versuch macht klug... :zwinker:

[delphinub23]

Also es liegt nicht an FireMonkey. Ich habe gerade ein Testframe ohne FireMonkey erstellt und das Problem besteht weiterhin. Das Formular wird nur dann nicht ordnungsgemäß erzeugt, wenn die Create-Funktion der Form im OnPrivateMessage von TIdIRC steht. Sonst funktioniert das erzeugen der Form ohne Probleme.

Ist das normal oder habe ich eine Fehler eingebaut?