为窗体上所有的Label控件(动态生成的)设置同一个popmenu,其中一个菜单项是属性,点击时出现一个窗体来显示对应Label控件的left,top,width,height等属性,
现在问题是:比如有Label1,Label2,在Label1点右键->属性,显示的是Label的属性,
再在Label2上点右键,显示Label2的属性。但是如果再点Label1,显示的还是Label2的属性
??也就是说,判断不了点击的是哪一个Label??
请教该如何做?
相关代码如下:
procedure TMainFormBill.PropertyLabelClick(Sender: TObject);
begin
FormLabelProperty.EditLabelCaption.Text := FormLabel.ALabel.Caption;
FormLabelProperty.EditLabelLeft.Text := IntToStr(FormLabel.ALabel.Left);
FormLabelProperty.EditLabelTop.Text := IntToStr(FormLabel.ALabel.Top);
FormLabelProperty.EditLabelWidth.Text := IntToStr(FormLabel.ALabel.Width);
FormLabelProperty.EditLabelHeight.Text := IntToStr(FormLabel.ALabel.Height);
FormLabelProperty.ShowModal;
end;
现在问题是:比如有Label1,Label2,在Label1点右键->属性,显示的是Label的属性,
再在Label2上点右键,显示Label2的属性。但是如果再点Label1,显示的还是Label2的属性
??也就是说,判断不了点击的是哪一个Label??
请教该如何做?
相关代码如下:
procedure TMainFormBill.PropertyLabelClick(Sender: TObject);
begin
FormLabelProperty.EditLabelCaption.Text := FormLabel.ALabel.Caption;
FormLabelProperty.EditLabelLeft.Text := IntToStr(FormLabel.ALabel.Left);
FormLabelProperty.EditLabelTop.Text := IntToStr(FormLabel.ALabel.Top);
FormLabelProperty.EditLabelWidth.Text := IntToStr(FormLabel.ALabel.Width);
FormLabelProperty.EditLabelHeight.Text := IntToStr(FormLabel.ALabel.Height);
FormLabelProperty.ShowModal;
end;
解决方案 »
- 关于API的问题向大家请教(获取机器的硬件信息)
- 新手提问,关于线程同步的问题,急救各位高人指点
- 请问大家:怎样才能把图片中的数字识别成真正的数字进行存储呢?
- 如何实现电视上的飞字效果?
- 50分:简单问题,有点搞笑,领导要我作个程序:打开直接到搜狐
- vc中的cap系列函数在delphi里对什么函数或组件?
- !!!为什么Paradox数据库里不能显示“”(双引号)号呢???
- 如何实现类似搜索引擎样的搜索关键字sql语句(a+b-c)
- 怎样在一个数据集中定位一条记录,并得到其所在数据集的位置的值?
- 各位,DELPHI的文件操作用起来怎么那么不爽呢!
- 如何使用动态数组!!在线等待
- 大家看看這個問題如何解決阿 急急急
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
showmessage( ( (sender as TPopupMenu).PopupComponent as Tlabel).Caption )
end;