5,931
社区成员
发帖
与我相关
我的任务
分享如何通过鼠标点击获得点击panel的caption值
我的窗替里有一大堆panel 如何通过鼠标点击获得点击panel的caption值?
谢谢！
谢谢！
...全文
请发表友善的回复…
发表回复
zhangxiasummer 2002-11-06
- 打赏
- 举报
如果我是通过右键点击该panel ， 出来右键菜单 ，选取菜单选项 这样来显示呢
xzhifei 2002-11-06
- 打赏
- 举报
或者在FormCreate事件中加入下面的代码：
var
i:integer
begin
for i:=0 to Self.ComponentCount-1 do
if Self.Components[i] is TPanel then
TPanel(Self.Components[i]).OnClick:=Panel1Click;
end;
var
i:integer
begin
for i:=0 to Self.ComponentCount-1 do
if Self.Components[i] is TPanel then
TPanel(Self.Components[i]).OnClick:=Panel1Click;
end;
xzhifei 2002-11-06
- 打赏
- 举报
将所有需要用到的Panel的OnClick事件连接成Panel1Click：
procedure TfrmMain.Panel1Click(Sender: TObject);
begin
ShowMessage(TPanel(Sender).Caption);
end;
procedure TfrmMain.Panel1Click(Sender: TObject);
begin
ShowMessage(TPanel(Sender).Caption);
end;
Essence_zhx 2002-11-06
- 打赏
- 举报
不明白你说的是什么意思。
能不能说的具体一点。
能不能说的具体一点。
