Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

TCheckBox - как програмно поменять Checked, чтобы не произошло ..   Найти похожие ветки 

 
agrig   (2002-04-21 19:43) [0]

TCheckBox - как програмно поменять Checked, чтобы не произошло OnClick?


 
Song ©   (2002-04-21 20:02) [1]

Никак.


 
kull ©   (2002-04-21 21:48) [2]

Ну можно типа так:


CheckBox1.OnClick := nil;
CheckBox1.Checked := True;
CheckBox1.OnClick := CheckBox1Click;


 
kull ©   (2002-04-21 21:57) [3]

Хотя лучше:


var
E: TNotifyEvent;
..............

E := CheckBox1.OnClick;
CheckBox1.OnClick := nil;
CheckBox1.Checked := True;
CheckBox1.OnClick := E;


 
SoftOne ©   (2002-04-22 01:07) [4]

Можно и так:
CheckBox1.Perform(BM_SETCHECK,Ord(True),0); - Checked
CheckBox1.Perform(BM_SETCHECK,Ord(False),0); - Unchecked


 
Billy ©   (2002-04-22 03:02) [5]

У меня тоже была такая трабла. Я ее решил не очень красиво (на мой взгляд) но зато работает как часы. Идея в том, что при клике этот CheckBox становится Focused. Таким образом:

if CheckBox1.Focused then // по нему кликнули
else //это программное изменение


 
agrig   (2002-04-23 08:45) [6]

я сам завел глобальную переменную и проверяю ее значение в OnClick но ето конечно ерунда...


 
Song ©   (2002-04-23 08:49) [7]

Интересно, а Ord(True)это 1??? :)))))
SoftOne © (22.04.02 01:07) Хороший способ. Сам про него забыл.


 
kull ©   (2002-04-23 10:57) [8]

>if CheckBox1.Focused then // по нему кликнули
>else //это программное изменение

А если он в фокусе и мы программно меняем?



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

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

Наверх




Память: 0.48 MB
Время: 0.009 c
1-17539
VJar
2002-04-24 00:08
2002.05.06
Как проверить запуск приложения?


14-17681
SPeller
2002-03-29 10:07
2002.05.06
Стартовая страница в IE


4-17757
EveryonE
2002-02-28 18:32
2002.05.06
классы


1-17523
avr555
2002-04-23 17:44
2002.05.06
OnScroll в TStringGrid


1-17581
neodiX
2002-04-22 15:12
2002.05.06
tdump name.dll