Hello,
mit folgenden code werden panels gezeichnet.
Allerdings muss vorher geprüft werden ob schon
existiert.
Es funktioniert aber nicht und kommt zur
exception
wenn das Panel schon existiert.
Delphi-Quellcode:
while not panelquer.Eof do begin
if not Assigned(panelen.pans.FindComponent(panelquer.fieldbyname('anzeige').AsString)as TPanel) then begin
tpa:=TPanel.Create(Self);
tpa.Parent:=pan0;
tpa.Visible:=true;
tpa.Left:=0;
tpa.Top:=0;
tpa.Height:=393;
tpa.Width:=689;
tpa.Name:=panelquer.fieldbyname('anzeige').AsString;
tpa.Caption:=panelquer.FieldByName('anzeige').AsString;
panelquer.Next;
end;
Was ist falsch?