Hi Leute, ich hänge seit ein paar Tagen an einem Problem fest,
ich ich erstelle mir 3 SpeedButtons während der Laufzeit durch ein Onclick Ereigniss eines normalen Buttons!
Jetzt möchte ich diese 3 SpeedButtons durch einen Click auf einen anderen Button wieder entfernen,
ich hab schon alles mir bekannte ausprobiert, aber es will einfach net klappen!
Kann mir vielleicht jemand helfen?
vielen Dank schonmal im Vorraus!
Delphi-Quellcode:
procedure TForm1.B1Click(Sender: TObject);
var
i: integer;
Begin
for i := 1 to 3 do
begin
with Tspeedbutton.Create(form1) do
begin
Name :='sb' + inttostr(i);
Parent := form1;
Width := 17;
Height := 17;
Top := 100*i;
Left := 100*i;
FreeOnRelease;
end;
end;
end;
procedure TForm1.B2Click(Sender: TObject);
begin
{ hier sollen die drei Buttons wieder gelöscht werden }
end;