Подскажите, как программно нажать на кнопку (TButton) и программно создать CheckBox. Заранее спасибо.

procedure TForm1.Button1Click(Sender: TObject);
begin
button2.OnClick(button2); //там переменная типа TObject принимается...
//посмотри, что тебе надо отправлять....
end;

procedure TForm1.Button2Click(Sender: TObject);
var cl : TCheckBox;
begin
cl := TCheckBox.Create(Self);
cl.Top := 5; //ну - необходимые свойства
cl.Left := 10;
cl.Caption := 'my_checkbox';
cl.Visible := true;
form1.InsertControl(cl);
end;

Maverick А при создании Check'а Parent разве ненужно и его заменяет form1.InsertControl(cl);?

Цитата

Maverick А при создании Check'а Parent разве ненужно и его заменяет form1.InsertControl(cl);?

Вероятно, да.... Я никогда Parent особо не указываю... Проблем не было....

Буду теперь тоже знать ещё один способ! А то мне, когда объясняли теорию, говорили, что Parent обязательно!

procedure TForm1.Button2Click(Sender: TObject);
var cl : TCheckBox;
begin
cl := TCheckBox.Create(Self);
cl.Top := 5;
cl.Left := 10;
cl.Caption := 'kl;jkjkj';
cl.Visible := true;
form1.InsertControl(cl);
//добавил ---------------------------------
Label1.Caption := cl.Parent.Name;
end;
Ты меня напужал, решил проверить... Нет.... все правильно...
Label1 принимает значение Form1.... ;)

Цитата

напужал

Извини...

Цитата

procedure TForm1.Button1Click(Sender: TObject); begin button2.OnClick(button2); //там переменная типа TObject принимается... //посмотри, что тебе надо отправлять.... end;

Хм... а button2.click; чем не подходит?

Цитата

Хм... а button2.click; чем не подходит?

Подходит... просто в свое время то нашел быстрее, чем это.... а в мозгу закрепилось....

Maverick, спасибо.

Цитата

А при создании Check'а Parent разве не нужно и его заменяет form1.InsertControl(cl);?

InsertControl как раз ентот Parent и прописывает вызывая TWinControl.Insert.

Кстати,

Код

button2.click;

ИМХО, правильнее, т. к. когда мы просто вызываем процедуру обработки события

Код

button2.OnClick(button2);

, то компонент (в данном случае кнопка) не подозревает о том что по ней "кликнули". В данном конкретном случае это может не иметь принципиального значения, но стоит заглянуть в исходник TButton -- там еще и Modal Result обрабатывается и TAction...