Tweet
hallo,
ich möchte zur Laufzeit erzeugte Komponenten einer GroupBox durch ButtonClick löschen.
Das ist der Code:
procedure TForm1.ButtonClick(Sender: TObject);
var i : integer;
var But : TButton;
begin
But := TButton(Sender);
if (((But.Caption = 'OK') or (But.Caption = 'Abbrechen')) and (But.Parent = GroupBox2)) then
begin
GroupBox1.Enabled := true;
for i := 0 to GroupBox2.ComponentCount - 1 do
GroupBox2.Components[i].Free;
end;
end;
Bei ButtonKlick passiert gar nichts.
Weiß jmd was?
Vllt sollte ich noch sagen, dass der Button, der das löschen der komponenten ausführt, ebenfalls in dieser groupbox liegt und sich daher auch selbst zerstört.
ich möchte zur Laufzeit erzeugte Komponenten einer GroupBox durch ButtonClick löschen.
Das ist der Code:
procedure TForm1.ButtonClick(Sender: TObject);
var i : integer;
var But : TButton;
begin
But := TButton(Sender);
if (((But.Caption = 'OK') or (But.Caption = 'Abbrechen')) and (But.Parent = GroupBox2)) then
begin
GroupBox1.Enabled := true;
for i := 0 to GroupBox2.ComponentCount - 1 do
GroupBox2.Components[i].Free;
end;
end;
Bei ButtonKlick passiert gar nichts.
Weiß jmd was?
Vllt sollte ich noch sagen, dass der Button, der das löschen der komponenten ausführt, ebenfalls in dieser groupbox liegt und sich daher auch selbst zerstört.