应该是很简单的问题(50分)

A

Alix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #1

如何改变checkbox的checked属性，而不触发checkbox的onclick事件 ? 急

 

C

confidentbb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #2

直接写 checkbox.checked:=true or false

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #3

不明白你的意思，糊涂中。。。。。。

 

A

Alix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #4

按楼上说的，这样就是会触发onclick呀, 高手求救

 

小

小乙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #5

首先选择默认属性模式：
在事件管理器里能看到，将CheckBox.State属性设为cbUnChecked模式
然后在程序中可以动态设置：
CheckBox.Checked:=True 或 False;

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #6

能不能讲明你的用意？

 

A

Alix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #7

具体来说是这样的， 一旦我点了button1,delphi就会自动的触发CheckBox1Click事件,
现在我问的是能不能，我点了button1,不自动触发CheckBox1Click事件
procedure TForm1.Button1Click(Sender: TObject);
begin
checkbox1.Checked:=not checkbox1.Checked
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
showmessage('onclick');
end;

 

A

Alix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #8

我还是找不到方案。

 

L

lbd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #9

用两个checkedbox,一个默认true，另一个默认False。进行显示转换

 

A

Alix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #10

那我要多20多个checkbox了， 好大啊?

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #11

首先屏蔽，然后设置，最后恢复
procedure TForm1.Button1Click(Sender: TObject);
var
lEvent: TNotifyEvent;
begin
lEvent := CheckBox1.OnClick;
CheckBox1.Checked := True;
CheckBox1.OnClick := lEvent;
end;

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #12

这样就更好了。[]
procedure TForm1.SetCheckState(var aCheckBox: TCheckBox; aChecked: Boolean);
var
lEvent: TNotifyEvent;
begin
lEvent := aCheckBox.OnClick;
CheckBox1.Checked := aChecked;
aCheckBox.OnClick := lEvent;
end;

 

N

nghoul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #13

先把CheckBox的OnClick事件设为nil
执行完你的程序，再重新设置CheckBox
的OnClick事件：
TForm1.Button1Click(Sender: TObject);
var
LOnClick: TNotifyEvent;
begin
LOnClick := CheckBox1.OnClick;
CheckBox1.OnClick := nil;
checkbox1.Checked :=not checkbox1.Checked;
CheckBox1.OnClick := LOnClick;
end;

 

C

chao_jian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #14

改变checkbox的checked属性，而不触发checkbox的onclick事件 ?

不知还要OnClick事件干什么？

 

P

pla250

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #15

利用每个checkbox的Tag
Tag=1 表示true
Tag=0 表示False
Button敲后改变Tag,在OnClick中通过判断Tag来决定是否执行你的代码！

 

D

dlnew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #16

本人常用的办法是在type中声明一个开关变量:kg : boolean;
在button1的onclick事件中这样写:
...
begin
....
kg := false;
checkbox1.checked := true;//or false;
kg := true;
...
end;

在checkbox1的onclick事件中这样写
...
begin
if not kg then exit;
...
end;

这样可以保证在button1.onclick中不执行checkbox1.onclick

 

M

mengxianbao1521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #17

同意楼上的！！
这个好像在Checked上做文章可不行。
应该在OnClick里来判断才可以！！！！

 

A

Alix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-08

• #18

多谢谢大家提拔, 分少真的不知道怎么分