ActionList的小问题(28分)

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #1

Edit1:TAction
我在程序运行时动态改变了Edit1.OnExecute的指向。如何更改相应的TSpeedButton,TMenuItem
的OnClick事件

 

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #2

TActionList,或TAction是否提供了这样的方法

 

E

eyes4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #3

Tspeedbutton、TMenuitem的Action属性

 

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-02

• #4

Edit1:TAction

btnEdit:TToolButton
btnEdit.Action=Edit1

EditItem:TMenuItem
EditItem.Action=Edit1

NewEvent:TNotifyEvent
现在Edit1.OnExecute指向NewEvent 如何才能自动更新btnEdit和EditItem的OnClick事件

eye4的方法不行

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-03

• #5

奇怪，我这里这么没有你说的那中情况呢？

 

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-03

• #6

我的环境win2000/delphi5 p1
开始设计的时候（在IDE中)我是没有给Edit1.OnExecute写任何东西的。只是在后面的
程序事件中给Edit1.OnExecute赋值的

 

陀

陀螺

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-04

• #7

你给Edit1.OnExecute 设计期写一行空代码，并给btnEdit.action赋过去试试。。

 

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-02

• #8

在ide中定义一行空的代码
还是赋不了值

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-02

• #9

仅仅是解决方法，要写几行代码：
在BtnEdit.OnClick和EditItem.OnClick中写：
Edit1.Execute;

这样，动态改变Edit1.OnExecute就没问题了。

 

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-05

• #10

多人接受答案了。

 

R

redhat2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-12

• #11

add two editbox on the form:

procedure TForm1.Action1Execute(Sender: TObject);
begin
IF Sender is TEdit then
if TEdit(Sender) = Edit1 then
showmessage('Edit1 Clicked')
else if TEdit(sender) =Edit2 then
showmessage('Edit2 Clicked')
else
showmessage('Bad');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.OnClick :=Action1Execute;
Edit2.OnClick :=Action1Execute;