如何动态获取窗体TForm.caption的方法？

xiaoxinpaigu 2012-02-29 09:40:39

我的程序有三个界面main.pas/user.pas/pubfunction.pas,我以前在main界面里面写了个function方法时，获取窗体标题是TForm(self).Caption，现在想将这个function移动到pubfunction.pas里面，结果报self错误？然后，我改为TForm(application).Caption,还是报错?,请问该如何写啊？

...全文

60 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

funxu 2012-02-29

打赏
举报

回复

纠正一个错误application不是你看到的form，另外delphi的self传递的是实例自己，所以当移出tform类后就不是tform实例了
可以保存你创建的窗体句柄，然后传递窗口句柄到你的函数中，用windowsapi getwindowtext来获取窗口标题

SVIP_ 2012-02-29

打赏
举报

回复

其实你可以在pubfunction.pas里定义一个全局变量
var
gCaption: string;

然后在main.pas中create的时候对gCaption赋值
gCaption := TForm(self).Caption;

这样gCaption就是窗体标题了.

我看见佛 2012-02-29

打赏
举报

回复

添加主窗体单元引用，
根据窗体名称调用CAPTION

我看见佛 2012-02-29

打赏
举报

回复

uses main
mainform.Caption

Delphi getTime 获取当前日期时间，用的是DateTimeToStr，运行本窗口后，自动获取当前电脑上的时间，显示在窗体指定的Lable标签中，这是核心的源代码：　procedure TForm1.Timer1Timer(Sender: TObject); 　begin ...

//获取列显示时的事件,如计算字段,翻译CXGRID显示内容时会用到 TColumnGetDataTextEvent = record ColumnName:string; FOldColumnGetDataText: TcxGridGetDataTextEvent; SQL:string; Self:TcxGridColumn; ...

对窗体设置语言文件,自动读写.DFM中的文字资源到INI文件中, 之后再对INI文件统一修改. 主要设置以下几项属性: AnsiString: Caption , AnsiString: Text, AnsiString: DisplayLabel, AnsiString: Hint,(当属性...

//破解后的2.6版不能够动态改变窗体的caption，下面是补充解决办法 var P: Pchar; begin P := Pointer(TMySkinManage(SkinManager).FindSkinForm(Handle)); if P = nil then exit; P := P+104; //D5的话请将...

procedure TFrmMain.btn1Click(Sender: ... BPLClass:=GetClass('TForm1'); If BPLClass<>nil then begin Caption:='Create OK' ; Frm:=TComponentClass(BPLClass).Create(Application) as IFormAction; end; end;

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章