Есть такой обработчик:
Код:
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;
Когда форма открывается, галочка не ставится.