Hi,
ich habe ein Problem mit folgendem Code:
Delphi-Quellcode:
ATabSheet:= TTabSheet.Create(PageControl1);
ATabSheet.Caption:= ListArray[i].Name;
ATabSheet.PageControl:= PageControl1;
AListBox:= TListBox.Create(ATabSheet);
AListBox.Name:= 'ListBox'+IntToStr(i);
AListBox.Parent:= ATabSheet;
AListBox.Visible:=True;
AListBox.Left:=0;
AListBox.Top:=0;
AListBox.Align:= alClient;
ListArray[i].ListBox:= AListBox;
Solange die MainForm beim erstellen von AListBox im Vordergrund ist,
gibt es keine Probleme. Ist sie es aber nicht, dann wird die ListBox
nicht im TabSheet angezeigt, und beim Beenden der Anwendung bekomme ich
eine
Exception, und der Debugger beschwert sich :
Code:
---------------------------
Application Error
---------------------------
Exception EOSError in module Project1.exe at 0000E2BD.
System Error. Code: 1400.
Ungültiges Fensterhandle.
---------------------------
OK
---------------------------
---------------------------
Debugger
Exception Notification
---------------------------
Project Project1.exe raised
exception class EIdSocketError with message 'Socket Error # 10093
'.
---------------------------
Break Continue Help
---------------------------
Ich habe einen TIdHTTPServer auf der Form, über den ich per "OnCommandGet"
die Anweisung zum erstellen der ListBox gebe.
hat irgendwer eine Idee, woran das liegen könnte ?