[TotKtoNado]

Сообщение от v1s2222

Код:

procedure TForm1.Click_(Sender: TObject);
begin
ТВОЙ код СЮДА вставляй
  ShowMessage('Вы нажали на кнопку.');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(Form1);
  With Btn do begin
    parent:=Form1;
    caption:='button';
    OnClick := Form1.Click_;
  end;
end;

а что она ругаеться на OnClick := Form2.Click_;?
А я хочу их разместить не одну кнопку а несколько ?
Как мне это сделать?