Button Selbstzerstörung

[Mavarik]

Zitat von TiGü:

Delphi-Quellcode:

if Sender = deinButton then
  NichtZerstören;

Fast...

Delphi-Quellcode:

type barray = Array of TButton;
var btns: barray;

procedure TForm1.abtnClick(Sender: TObject);
var 
  i: Integer;
  MichNicht:TButton;
begin
  for i := length(btns) - 1 downto 0 do 
    if TButton(Sender) = self 
      then btns[0] := btns[i]
      else btns[i].Free;

  for i := 1 to random(9) + 1 do
    begin
       btns[i] := TButton.Create(nil);
       btns[i].name := 'abutton' + IntToStr(i);
       btns[i].text := 'Button' + IntToStr(i+1);
       btns[i].Parent := GridLayout1;
       btns[i].OnClick := abtnClick;
    end;
end;