[Terio]

Добрый день!
У меня такой вопрос:
На форме имеется CheсkBox. Нужно при открытии формы (Form1.Show)
программно вызвать событие OnClick этого чекбокса (программно нажать на него мышкой).
CheckBox1.OnClick(Self); ничего не дало
Спасибо!

[The Shadow]

Код:

CheckBox1.Click;

или

Код:

CheckBox1Click(Self)

[Dux]

Попробуйте так

CheckBox1.Checked:=true;

[Terio]

Сообщение от The Shadow

Код:

CheckBox1.Click;

или

Код:

CheckBox1Click(Self)

CheckBox1.Click; выдает ошибку "Cannot Access protected symbol..."
CheckBox1Click(Self); ничего не дает.
ChekBox1.Checked:=True; мне не подходит, там проблемы с фокусом начинаются. Нужно программно кликнуть.

[KsandrXXX]

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

CheckBox1.OnClick(Self); ничего не дало

Создай обработчик события CheckBox1Click и вызови CheckBox1.OnClick(Self)

[Terio]

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

Создай обработчик события CheckBox1Click и вызови CheckBox1.OnClick(Self)

А можно поподробней? Если можно, примерчик какой-нить.
Спасибо.

[KsandrXXX]

Делаешь обработчик события Onclick...для чекбокса
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
CheckBox1.Checked:=true;//устанавливаешь галочку
end;

а в form1.Show
begin
пишешь CheckBox1.OnClick(Self)
end;

[Terio]

Есть такой обработчик:

Код:

procedure TAddServices.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked=true then
begin
Edit3.Color:=clWindow;
Edit3.Enabled:=True;
Edit3.SetFocus;
end;
if CheckBox2.Checked=false then
begin
Edit3.Color:=clBtnFace;
Edit3.Enabled:=false;
end;
end;

По умолчанию галочка не стоит.
Поэтому CheckBox1.Checked:=true поставить не могу

Проблема в том, что вызывается обработчик с другой формы:

Код:

procedure TServices.Button2Click(Sender: TObject);
begin
 AddServices:=TAddServices.Create(self);
 AddServices.CheckBox2.OnClick(self);
 AddServices.ShowModal;
end;

Когда форма открывается, галочка не ставится.

[Terio]

Всё, проблему решил в событии onShow той же формы, где CheckBox. Проблема была из-за того, что SetFocus шел раньше чем создавалась форма.