Controls wärend der Laufzeit ENTFERNEN.

[tomate007]

also jungs... es funktioniert alles mit:

Delphi-Quellcode:

With ScrollBox123 do 
  While ControlCount > 0 do Controls[0].Free;

und zwar ist es so das alle Componenten die gelöscht werden sollen sich soweso in ScrollBox123 befinden.

Von daher klappt es super...

Zitat von QuickAndDirty:

Zitat von tomate007:

Delphi-Quellcode:

     if pruefung = true then begin
     for i:= 1 to AnzahlSpalten-1 do begin
     TEdit(Scrollbox1.FindComponent('Edit'+ IntToStr(i))).Free;
     TLabel(Scrollbox1.FindComponent('Label'+ IntToStr(i))).Free;
     end;
     end;

SO GEHT DAS NICHT
wenn du die erste gelöscht hast gibt es die letze schon nicht mehr.

machs so

Delphi-Quellcode:

     if pruefung = true then 
     begin
       for i:= AnzahlSpalten-1 downto 1 do  
       begin
         TEdit(Scrollbox1.FindComponent('Edit'+ IntToStr(i))).Free;
         TLabel(Scrollbox1.FindComponent('Label'+ IntToStr(i))).Free;
       end;
     end;

Genau, wie Deep-Sea schon geschrieben hat geh ich da auf den Namen und nicht auf den Index, nur natürlich war dies zu langsam da ich die FindComponent-Sache mit drin hatte welche, wie ich es heut gelernt habe, sehr sehr langsam ist.

Würde jedem empfehlen der viele Componenten, dass er einfach nen panel macht und da die dinger drauf setzt die entfernt werden sollen und dann halt mit dem Code oben die Objects löscht.

Zitat von Deep-Sea:

Zitat von tomate007:

Es funktioniert!!!!!

Was hast du erwartet?!

Naja... das es klappt wenn der Code schon von einem Deep-Sea kommt dann muss er ja klappen


Also nochmal


ICH DANKE EUCH ALLEN!!!!

MFG
Andre

@Mod Thema kann geschlossen werden von meiner Seite aus.