用actionlist共享事件代码的一个问题

[ustckikyo]

两个按钮共享事件，如果在共用的onclick事件里面写
if(Sender==Button1)
ShowMessage("Button1click");
if(Sender==Button2)
ShowMessage("Button2click");
是可以区分两个按钮的。
但是我用actionlist在他们的onexcute事件里面那样写却不能实现。
不知道如果用actionlist怎么才能通过sender区分两个按钮

[小笨象]

    TButton *ClickBtn;
    ClickBtn= dynamic_cast<TButton *>(Sender);
    ShowMessage(ClickBtn->Caption);

[wwp3321]

可以采用Button的Tag的属性。
例如把Button1的tag设成1，Button2的tag设成2，则代码如下。
TButton *ClickBtn;
ClickBtn= dynamic_cast<TButton *>(Sender);
if(ClickBtn->Tag == 1)
ShowMessage(ClickBtn->Caption);
else if(ClickBtn->Tag == 2)
ShowMessage(ClickBtn->Caption);

[ustckikyo]

[Quote=引用 3 楼 wwp3321 的回复:]
可以采用Button的Tag的属性。
例如把Button1的tag设成1，Button2的tag设成2，则代码如下。
TButton *ClickBtn;
ClickBtn= dynamic_cast <TButton *>(Sender);
if(ClickBtn->Tag == 1)
ShowMessage(ClickBtn->Caption);
else if(ClickBtn->Tag == 2)
ShowMessage(ClickBtn->Caption);
[/Quote]

在共用的OnClick事件里面这样写可以用，但是写在actionlist的onexcute事件里面程序运行时会报错。

[ustckikyo]

[Quote=引用 3 楼 wwp3321 的回复:]
可以采用Button的Tag的属性。
例如把Button1的tag设成1，Button2的tag设成2，则代码如下。
TButton *ClickBtn;
ClickBtn= dynamic_cast <TButton *>(Sender);
if(ClickBtn->Tag == 1)
ShowMessage(ClickBtn->Caption);
else if(ClickBtn->Tag == 2)
ShowMessage(ClickBtn->Caption);
[/Quote]

void __fastcall TForm1::ClickExecute(TObject *Sender)
{
if(Sender->ClassNameIs("TButton"))
{
ShowMessage("ok");
}
TButton *ClickBtn;
ClickBtn= dynamic_cast <TButton *>(Sender);
if(ClickBtn->Tag == 1)
ShowMessage(ClickBtn->Caption);
else if(ClickBtn->Tag == 2)
ShowMessage(ClickBtn->Caption);
}
上面的代码并不显示OK，说明ActionList事件处理中的Sender还是有些讲究的，
所以用ClickBtn访问Tag会出错。不知道怎么才能实现。。。

[ustckikyo]

[Quote=引用 1 楼 zxjrainbow 的回复:]
C/C++ code
TButton *ClickBtn;
ClickBtn= dynamic_cast<TButton *>(Sender);
ShowMessage(ClickBtn->Caption);
[/Quote]
这样还是不行啊

[僵哥]

void __fastcall TForm1::Action1Execute(TObject *Sender)
{
	TAction *CurrentAction;
	TButton *CurrentButton;

	if(!Sender->InheritsFrom(__classid(TAction)))return;
	CurrentAction = dynamic_cast<TAction *>(Sender);
	if (!CurrentAction->ActionComponent) return;

	if(!CurrentAction->ActionComponent->InheritsFrom(__classid(TButton)))return;

	CurrentButton = dynamic_cast<TButton *>(CurrentAction->ActionComponent);

	ShowMessage(CurrentButton->Name);

}

[rxiao99]

正解

[Quote=引用 6 楼 unsigned 的回复:]
C/C++ code
void __fastcall TForm1::Action1Execute(TObject *Sender)
{
TAction *CurrentAction;
TButton *CurrentButton;

if(!Sender->InheritsFrom(__classid(TAction)))return;
CurrentAction = dynamic_cast<TAction *>(Sender);
if (!CurrentAction->ActionComponent) return;

if(!CurrentAction->ActionComponent->InheritsFrom(__classid(TButton)))return;

CurrentButton = dynamic_ca…
[/Quote]

[rxiao99]

一般控件的事件中，Sender参数是指控制自己

[ustckikyo]

[Quote=引用 6 楼 unsigned 的回复:]
C/C++ codevoid __fastcall TForm1::Action1Execute(TObject *Sender)
{
TAction *CurrentAction;
TButton *CurrentButton;

if(!Sender->InheritsFrom(__classid(TAction)))return;
CurrentAction = dynamic_cast<TAction *>(Sender);
if (!CurrentAction->ActionComponent) return;

if(!CurrentAction->ActionComponent->InheritsFrom(__classid(TButton)))return;

CurrentButton = …
[/Quote]
非常感谢，我是新手，不知道怎么给分。呵呵

还想请教一下这些东西在什么书里面会讲，自己摸索这些东西实在太难了。

[小笨象]

还 僵哥 强啊。。
这种用法，我还真不会。。。。