怎么用代码获得当前窗本的name和caption
如何用代码获得当前窗本的name和caption
如何用代码获得当前窗本的name和caption
------解决方案--------------------
self.Name;
self.Caption;
不加self也可以的
------解决方案--------------------
窗体名.name
窗体名.caption
如form1.name;form1.caption
------解决方案--------------------
------解决方案--------------------
Frm_Main.ModuleIfTrue(Data1.ADOQuery8,Frm_AssistBase);
参数传进来的时候,定义一个变量,然后赋值就好啦。
var
sName: string
begin
sName:= Frm_AssistBase;
------解决方案--------------------
Frm_Main.ModuleIfTrue(Data1.ADOQuery8,Frm_AssistBase);
看下这个过程,如果Frm_AssistBase已经创建了,直接用Frm_AssistBase.name
------解决方案--------------------
用比较 句柄 的方法最可靠。
------解决方案--------------------
写了一个小测试,就当f4是你的新窗体吧
看下面的code
如何用代码获得当前窗本的name和caption
------解决方案--------------------
self.Name;
self.Caption;
不加self也可以的
------解决方案--------------------
窗体名.name
窗体名.caption
如form1.name;form1.caption
------解决方案--------------------
------解决方案--------------------
Frm_Main.ModuleIfTrue(Data1.ADOQuery8,Frm_AssistBase);
参数传进来的时候,定义一个变量,然后赋值就好啦。
var
sName: string
begin
sName:= Frm_AssistBase;
------解决方案--------------------
Frm_Main.ModuleIfTrue(Data1.ADOQuery8,Frm_AssistBase);
看下这个过程,如果Frm_AssistBase已经创建了,直接用Frm_AssistBase.name
------解决方案--------------------
用比较 句柄 的方法最可靠。
------解决方案--------------------
写了一个小测试,就当f4是你的新窗体吧
看下面的code
- Delphi(Pascal) code
var f4: TForm4; ff: TForm; procedure TForm3.Button1Click(Sender: TObject); var aHandle: THandle; begin f4 := TForm4.Create(self); f4.Show(); //f4.Active := True; aHandle := GetForegroundWindow; ff := TForm(FindControl(aHandle)); ff.Caption := 'New Caption'; ff.Name := 'newForm'; end;
------解决方案--------------------
窗体名有时不必记住,只用self 即可