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 но ето конечно ерунда...

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

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

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