[Crashover]

Привет всем. Такой вопрос. Вот я хочу чтобы на Form с помощью кнопки Button при нажатии добавлялась допусти panels или image. При каждом нажатии новая panels или imege. Как это реализовать?

[Kapitoshka438]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
begin
  Panel := TPanel.Create(Self);
  Panel.Parent := Self;
  Panel.Left := ...;
  Panel.Top := ...;
  Panel.Width := ...;
  Panel.Height := ...;
end;

[Страдалецъ]

Код:

 with TPanel.Create(Self)
 do begin
    Parent := Self;
    Top := 50;
    Left := 50;
    Width := 100;
    Height := 100;
    end;

По аналогии и TImage

[Страдалецъ]

Чуток опоздал

[Kapitoshka438]

Ничего страшного, мне кажется, у Вас изящнее способ.

[Crashover]

Большое спасибо!