Hallo
Ich hoffe mal das mein Problem in die Sparte hier rein gehörte.. die anderen trafen nicht so zu ^^
Ich habe in meinem Programm mehrere Panels (übereinander, Align=Client)! Ein Panel ist sichtbar, die anderen nicht! Wenn ich nun einen anderen Panel sichtbar mache, und den ersten wieder unsichtbar, dann vollzieht er zwar den wechsel, aber nicht vollständig! D.h: Ich habe weitere Komponenten (Memo, Edit, Labels..) auf dem nun sichtbaren Panel.. allerdings werden z.b das Edit nicht angezeigt! Visible ist an, also kann es daran nicht liegen..
Hat einer eine Idee warum es nicht funktioniert?
Hier mal ein kleiner Auszug aus dem Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
if client=true then
begin
nxt:=AThread.Connection.ReadLn();
if nxt='nxt001' then
begin
PMain.Visible:=true;
PClient.Visible:=false;
end;
end;
end;
procedure TForm1.Label13Click(Sender: TObject);
begin
with idTCPClient1 do
begin
try
Connect(500);
WriteLn('nxt001');
Disconnect;
PMain.Visible:=true;
PServer.Visible:=false;
except
ShowMessage('Verbindung zum Server fehlgeschlagen!');
end;
end;
end; |
Die beide gehen natürlich von verschiedenen PCs aus.. Mit dem Verbinden sollte es keine Probleme geben, da ja alles ankommt und er zumindest ansatzweise den Panel wechselt, daher habe ich es auch nicht in die Internet Sparte getan! ..
Hoffe mir kann jemand helfen =) .. danke schonmal
edit: Wenn ich das Fenster dann schließe, kommt folgender Fehler:
"Exception EOSError in module WDO_ct1.exe at 0000CBE6.
System Error. Code: 1400.
Ungültiges Fensterhandle."
