求助:找控件属性。。。
主界面上有个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变量
[解决办法]
+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的标题