ЗАпук обработчика из другой Формы.

← →
Neket (2009-07-05 14:45) [0]

впервые наткнулся на такую проблему. Неисключаю по причине незнания но, ситуаци следующая.
Есть две формы Form1 и Form2.
В Form1 есть вот такой обработчик:
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
If CheckBox1.Checked = true then
begin
Shape1.Brush.Color:=ClRed;
end;
Но кода я в Form2 по событию
procedure TForm5.DBGrid1DblClick(Sender: TObject);
"ставлю галочку" Form2.CheckBox1.Checked:=true;
У меня сразу автоматически срабатывает первый обработчик TForm2.CheckBox1Click
Как такое возможно? Это же CheckBox1CLICK на Клик. И как этого можно избежать?

← →
sniknik © (2009-07-05 14:54) [1]

когда же ты уже отладчиком научишься пользоваться...

> В Form1 есть вот такой обработчик:
> procedure TForm2.CheckBox1Click(Sender: TObject);

> Как такое возможно?

← →
Neket (2009-07-05 14:55) [2]

ой блин сори я неподправил код.
Вот так правельно:
procedure TForm1.CheckBox1Click(Sender: TObject); begin If CheckBox1.Checked = true then begin Shape1.Brush.Color:=ClRed; end;
и соответственно
procedure TForm2.DBGrid1DblClick(Sender: TObject);

← →
Neket (2009-07-05 14:57) [3]

Я конечно переписал испоняемый код в Form1 не на событияе OnClick а на CheckBox1MouseUp но всеже интересно как такое возможно?

← →
KilkennyCat © (2009-07-05 15:48) [4]

> но всеже интересно как такое возможно?

а что в этом невозможного? Просто так сделали, что данное событие вызывается на изменение состояния... Привет от микрософта, скорее всего.

← →
sniknik © (2009-07-05 15:56) [5]

> Привет от микрософта, скорее всего.
procedure TCustomCheckBox.SetState(Value: TCheckBoxState); begin if FState <> Value then begin FState := Value; if HandleAllocated then SendMessage(Handle, BM_SETCHECK, Integer(FState), 0); if not ClicksDisabled then Click; end; end;
микрософт привет!

← →
Neket (2009-07-05 15:59) [6]

))) Ну я впринципе так и подозревал. windows mast die )))

> ))) Ну я впринципе так и подозревал. windows mast die )))
lamers must die. LAMERS!!!

ЗАпук обработчика из другой Формы. Найти похожие ветки