读书人

怎么动态获取窗体TForm.caption的方法

发布时间: 2012-03-17 19:06:28 作者: rapoo

如何动态获取窗体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来获取窗口标题

读书人网 >.NET

热点推荐