关于TActionList的问题.... 300分(300分)

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #1

我用ActionList来自动设置按钮的"复制","剪切","粘贴"的Enabled状态,
但是如果当前屏幕上有不止一个Edit类的控件,我怎样设置才能使该Action
只针对某一个Edit有效?

 

Z

Zephyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #2

我不太清楚你的意思，但我想你可以在Action的OnExecute事件中用
if TCustomEdit(Sender) = Edit1 then Action1.Enabled := Edit1.SelLength<>0;
这样的代码来做。

 

Z

Zephyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #3

天！又搞错了！实在抱歉！（我好象老是把cAkk大侠的题目看错，没办法，一见
到有300分就昏了头了）
以后不敢了...

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #4

procedure TForm1.FormCreate(Sender: TObject);
begin
EditCopy1.Control:=Edit1;
EditCut1.Control:=Edit1;
EditDelete1.Control:=Edit1;
EditPaste1.Control:=Edit1;
EditSelectAll1.Control:=Edit1;
EditUndo1.Control:=Edit1;
end;

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #5

成了!

MD,Control这个属性没有Publish,怪不得我不知道. :-(

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-07

• #6

哎! 又被"女片子"骗去我300大洋...