Добавление кнопки....

[Xander]

Как сделать чтобы при нажатии на кнопку например TSpeedButton появлялась другая кнопка Tbutton?? при нажатии еще раз на TSpeedButton появлялась еще одна Tbutton1 и т.д. Заранее благодарен!!

[Kostia]

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  b: TButton;
begin
  b := TButton.Create(Owner);
  b.Parent := Form1;
  windows.SetParent(b.Handle, Handle);
  b.Left := random(form1.ClientWidth);
  b.Top := random(form1.ClientHeight);
  b.Caption := 'Button';
end;

[Air]

http://programmersforum.ru/attachmen...8&d=1206426003
вот посмотри, это как пример

[Xander]

спасибо большое! точно и как я сразу не догадался!