[Argo13]

Тему можно удалить спасибо!



Уважаемый помоги пожалуйста... Создаю автоматом кнопку на форме с помощью

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1 := TButton.Create(Form1);
  with Button1 do begin
    Left := 50;
    Width := 100;
    Top := 50;
    Height := 25;
    Caption := 'Кнопка';
    Parent := Form1;

Админ: Пользуемся тегами для оформления кода!

Ситуация вот в чем: При нажатии кнопки создается новая кнопка. Всвязи с этим два вопроса.
1. Как сделать что бы при каждом нажатии на кнопку, каждая последующая созданная кнопка не делалась на одном месте, а что бы смещалась.
2.Созданная кнопка в результате при клике должна выдавать заранее запрограммированную форму, с запрограммированными на ней кнопками и окнами... Прошу примерно описать, как можно это реализовать, если нужны какие либо данные по вписываемому коду, пишите.

[angvelem]

Код:

  OnClick := MyClick;

где MyClick уже описан.