首页  »   Delphi

找控件属性。

网友分享于:2013-01-06  浏览:3次
求助:找控件属性。。。
主界面上有个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的标题

相关解决方案

最新解决方案