Вниз
Скачать: CL | DM;

Вызов обработчика события другим компонентом   Найти похожие ветки 

← →
MishaS ©   (2003-04-02 16:08) [0]

Как вызвать обработчик СheckBox.OnClick при выборе определённого
пункта меню.
Я пробовал это сделать так.
procedure TForm1.CancelMClick(Sender: TObject);
begin
If (CheckBoxIns.Checked)then CheckBoxInsClick(Sender);
end;


и так

procedure TForm1.CancelMClick(Sender: TObject);
begin
If (CheckBoxIns.Checked)then CheckBoxInsClick(TCheckBox(Sender));
end;

Но обработчик так и не выполнился


← →
Jel ©   (2003-04-02 16:50) [1]

а так?


procedure TForm1.CancelMClick(Sender: TObject);
begin
CheckBoxIns.CheckBoxInsClick(self);
end;



← →
Jel ©   (2003-04-02 16:52) [2]

Пардон - ошибочка вышла.

Правильно будет так:


procedure TForm1.CancelMClick(Sender: TObject);
begin
CheckBoxInsClick(self);
end;


← →
MishaS ©   (2003-04-03 16:53) [3]

Jel, я попробовал как ты говорил, но этот обработчик не выполнился


← →
Mike Kouzmine ©   (2003-04-03 16:59) [4]

А может просто Checked := not Checked (Ну или что надо), и обработчик вызовется сам?


← →
Roma ©   (2003-04-03 17:04) [5]

> MishaS © (03.04.03 16:53)

Темнишь ты что-то... Чего бы это ему не вызваться...

procedure TForm1.CancelMClick(Sender: TObject);
begin
with CheckBoxIns do
if Assigned(OnClick) then // есть обработчик?
OnClick(Sender); // вызвать его
end;


← →
MishaS ©   (2003-04-03 18:35) [6]

Объясните пожалуйста, что за прараметр Sender и зачем он нужен



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c
3-44079
Vick
2003-03-26 10:25
2003.04.14
Lookup поля в EhGrid


1-44115
Карелин Артем
2003-04-03 06:27
2003.04.14
Пребразование символов с учетом языка.


6-44315
NikolaB
2003-02-23 01:29
2003.04.14
Web Server and IsapiDLL (izvinite, chto vopros dlinii!)


1-44109
Buruhtan
2003-04-02 21:16
2003.04.14
Как создать ресурсный файл


9-43984
Checist[root]
2002-11-14 11:09
2003.04.14
Нужен исходник




   Наверх