Edit nicht sichtbar bei Panel Wechsel!

[monty.ms]

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-Quellcode:

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! ..

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."


Hoffe mir kann jemand helfen =) .. danke schonmal

[shmia]

Zitat von monty.ms:

Ich habe in meinem Programm mehrere Panels (übereinander, Align=Client)! Ein Panel ist sichtbar, die anderen nicht!

Ich würde keine Panels verwenden, sondern ein PageControl mit mehreren Seiten.
Damit der Benutzer nicht selbst umschalten kann, einfach das Property TabVisible jeder Seite auf False.
Umgeschaltet wird im Programm mit Setzen von ActivePage oder ActivePageIndex.