Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: 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 вся ветка

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.007 c
14-44413
T2
2003-03-28 16:32
2003.04.14
Halcyon 6


3-44022
SiJack
2003-03-25 15:52
2003.04.14
Как ячейку BDGrid редактируемой только по OnDblClick


6-44292
solodkov
2003-02-20 11:44
2003.04.14
Получение списка расшаренных файлов на любом компьютере в сети


1-44153
Ильяс Садыков
2003-04-03 12:29
2003.04.14
Как сделать чтобы мышка летала?


8-44274
Cobalt
2003-01-06 20:33
2003.04.14
Diablo2





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский