Hallo
Ich habe folgendes Problem. Ich habe ein MessangerProgram entworfen. Dort sollen sich wenn eine Nachricht rein kommt ein Messengerfenster öffnen.
Also hab ich in ServerExecute auch rein gesetzt das sich dann das jeweilig Formblatt öffnet.
Delphi-Quellcode:
procedure TFicyou.TCPServerExecute(AThread: TIdPeerThread);
VAR MsgBySvr:String;
begin
try
eabsenderip.Text:=AThread.Connection.Socket.Binding.PeerIP;
MsgBySvr:=AThread.Connection.ReadLn(#$A,5500); // Clientnachricht lesen
MsgBySvr:=Benutzerliste.Items.Strings[Eintrag]+': '+MsgBySvr;
end;
except
AThread.Connection.Disconnect; end;
form[{Variable für n-te Form}].MsgBox.Visible:=true;
end;
Wenn jetzt also eine Nachricht rein kommt soll sich das jeweilige Formblatt für den Benutzer öffnen.
Seltsamerweis öffnet sich dann das Formblatt und in dem sind kein Komponenten mehr (MemoFelder, Buttons, ...). Wenn ich dann das Programm schließe kommt der Besagte Fehler
Ungültiges Fensterhandle : Fehlercode 1400.
Ihc habe herraus gefunden das wenn ich das Formblatt manuell öffne und dann eine Nachricht von woanders auf den PC schreibe, dann zeigt er alles wunderbar an. Das Formblatt öffnet sich und der text wird angezeigt.
Hoffe jemand weiss was man dagegen tun kann.
mfg fr0g