找控件属性。

2013-01-05

求助：找控件属性。。。主界面上有个PanelMain，双击该PanelMain弹出新Form（不是ShowMessage），在这个新Form上的

求助：找控件属性。。。
主界面上有个PanelMain，双击该PanelMain弹出新Form（不是ShowMessage），在这个新Form上的PanelNew.Caption显示主界面上PanelMain的Caption，应该怎么直接取得？类似于(Sender as TPanel).Caption ?

自己想了个办法：用全局变量传递参数的办法可以解决。

请高手帮帮忙给点思路，最好有代码，谢谢。
[解决办法]
这个封装一下, 比如
procedure ShowPanelForm(const form: TPanelForm; const caption: string)
begin
form.panelNew.caption := caption;
form.showmodel;
end;

[解决办法]
在新窗体show之前设置Caption不行吗?? 或者在新Form里面加一个public变量
[解决办法]

引用:

在新窗体show之前设置Caption不行吗?? 或者在新Form里面加一个public变量

+1
在新Form创建之后，show之前更改PanelNew.Caption就行了
[解决办法]
也可以直接找到NewPanel的句柄，再发消息改变Caption
var
  h: HWND;
begin
  h := Handle;
  h := FindWindowEx(h,0,'TPanel',nil);
  SendMessage(h,WM_SETTEXT,0,Integer(PChar('test')));
  InvalidateRect(h,0,False);
end;
[解决办法]
在panel.click时，将panel.caption设为form2的标题

热点排行

.NET

找控件属性。