SOS(50分)

Y

yinchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-05

• #1

学习中……
有个动态创建的Label1有个PopupMenu，
procedure TForm1.Button1Click(Sender: TObject);
var
Label1:Tlabel;
begin
label1:=Tlabel.Create(self);
label1.Parent:=Form1;
label1.Top:=200;
label1.Left:=200;
label1.Caption:='getLabelName';
label1.PopupMenu:=PopupMenu1;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
// 获取Label的name
//?????
//
end;

 

Y

yinchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-05

• #2

抬起来！

 

J

jxj0561

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-05

• #3

右键菜单有个 PopupComponent 属性,用它吧
如果连右键菜单也不能直接确定,用Sender吧

 

Y

yinchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-05

• #4

在procedure TForm1.N1Click(Sender: TObject); 中sender是popupmenu
不能指到label上啊， PopupComponent 属性里也没有可以指到label的选项啊

 

Y

yinchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-05

• #5

有没有人知道阿?虽然比较菜，还望赐教

 

S

smithcouple

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-05

• #6

要给label一个name，比如label1.Name := 'L1';
就可以用
procedure TForm1.N1Click(Sender: TObject);
begin
showmessage(PopupMenu1.PopupComponent.Name);
end;

 

Y

yinchen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-08

• #7

多人接受答案了。