Цитата:
Сообщение от v1s2222
Ты имеешь в виду создание компонентов в run time.
На хороший код не рассчитывай, 12 часов дня, 1 число, но все же.
Код:
procedure TForm1.Click(Sender: TObject);
begin
ShowMessage('Вы нажали на кнопку.');
end;
...
var
Btn: TButton;
begin
Btn := TButton.Create(Form1);
With Btn1 do begin
parent:=self;
caption:='button';
OnClick := Click;
end;
|
а где все это писать надо?