如何动态获取窗体TForm.caption的方法?
我的程序有三个界面main.pas/user.pas/pubfunction.pas,我以前在main界面里面写了个function方法时,获取窗体标题是TForm(self).Caption,现在想将这个function移动到pubfunction.pas里面,结果报self错误?然后,我改为TForm(application).Caption,还是报错?,请问该如何写啊?
[解决办法]
uses main
mainform.Caption
[解决办法]
添加主窗体单元引用,
根据窗体名称调用CAPTION
[解决办法]
其实你可以在pubfunction.pas里定义一个全局变量
var
gCaption: string;
然后在main.pas中create的时候对gCaption赋值
gCaption := TForm(self).Caption;
这样gCaption就是窗体标题了.
[解决办法]
纠正一个错误application不是你看到的form,另外delphi的self传递的是实例自己,所以当移出tform类后就不是tform实例了
可以保存你创建的窗体句柄,然后传递窗口句柄到你的函数中,用windowsapi getwindowtext来获取窗口标题