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

CheckBoxOnClick   Найти похожие ветки 

← →
Washington ©   (2007-12-21 15:27) [0]

После выполнения CheckBox1.Checked:=true происходит событие CheckBoxOnClick. Как можно этого избежать? Короче говоря мне нужно сделать CheckBox отмеченным, но в то же время не нужно, что произошло это событие. Помогите, пожалуйста!


← →
MBo ©   (2007-12-21 15:31) [1]

сохрани обработчик во временную переменную, назначь обработчику nil, выполни то, что нужно, потом восстанови


← →
@!!ex ©   (2007-12-21 15:32) [2]

var
 Flag:boolean = true

Flag:=false;
CheckBox1.Checked:=true
Flag:=true;

CheckBoxOnClick:
if Flag then begin
 //
end;


← →
Washington ©   (2007-12-21 15:33) [3]


> MBo ©   (21.12.07 15:31) [1]

Чуть-чуть попонятнее можно, плз?


← →
Kolan ©   (2007-12-21 15:33) [4]

> сохрани обработчик во временную переменную, назначь обработчику
> nil, выполни то, что нужно, потом восстанови

Имхо этот изврат от неверного кода в самом обработчике&#133


← →
Washington ©   (2007-12-21 15:34) [5]


> @!!ex ©   (21.12.07 15:32) [2]

Спасибо!!!


← →
Palladin ©   (2007-12-21 15:35) [6]

странно, но у меня никакого OnClick не возникает


← →
Washington ©   (2007-12-21 15:38) [7]

Действительно странно! Сделал
> @!!ex ©   (21.12.07 15:32) [2]

всё прекрасно заработало!


← →
{RASkov} ©   (2007-12-21 16:52) [8]

А можно и без глобальной переменной:

CheckBox1.OnClick:=nil;
CheckBox1.Checked:=true;
CheckBox1.OnClick:=<Имя его обработчика, например CheckBox1Click>;


← →
Washington ©   (2007-12-22 08:40) [9]


> {RASkov} ©   (21.12.07 16:52) [8]
Попробую щас



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

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



Память: 0.46 MB
Время: 0.012 c
4-1182254758
Alexey SVD
2007-06-19 16:05
2008.01.20
Как выключить компьютер под xp


15-1197795244
Kostafey
2007-12-16 11:54
2008.01.20
С днем рождения ! 16 декабря


2-1197983348
Alex_C
2007-12-18 16:09
2008.01.20
Можно ли узнать, кто использует DLL


2-1198215384
МуМу
2007-12-21 08:36
2008.01.20
подскажите как изменить стиль шрифта ?


15-1197746904
Kerk
2007-12-15 22:28
2008.01.20
Перевод слова "Geek"




   Наверх