Delphi : zur Laufzeit Komponenten entfer
Von: , Frage gestellt am Di, 28. Sep 1999
habe mit folgendem source : . . .
procedure TFieldsForm.FormActivate(Sender: TObject);
var i :integer;
begin
for i:=1 to Form1.SpinEdit1.Value do
begin
with TSpinEdit.Create(Self) do
begin
name := 'nEdit'+IntToStr(i);
left := 5;
top := 50 * i;
width := 40;
maxValue := 15;
minValue := 2;
value := 2;
parent := self;
end;//with}
with TStringGrid.Create(Self) do
begin
name := 'StrGrid'+IntToStr(i);
left := 50;
top := 50 * i;
width := 100;
height := 40;
visible := true;
colcount := 1;
rowcount := 2;
DefaultColWidth := 40;
DefaultRowHeight := 15;
enabled := true;
parent := self;
end;//with}
end;//for
end;//procedure
. . . eine zur entwurfszeit unbekannte anzahl von komponenten erzeugt.
wie kann ich diese zur laufzeit wieder entfernen ?
Das Problem : erzeuge ich z.B. 3 dieser komponenten zur laufzeit, und rufe die(das) form noch einmal auf, bekomme ich eine fehlermeldung : "komponente schon vorhanden".
Vielleicht geht das auch, mit einer abfrage, welche komponenten schon vorhanden sind, und ich erzeuge nur die , die noch nicht da sind, aber wenn ich beim zweiten mal weniger haben moechte ist das schon bloed?
bitte helft mir!
Vielen Dank
cu kf