我想要开一个新窗口的时候,关掉之前打开的一个窗口,现在知道这个要关闭的窗口的name,怎么做??
解决方案 »
- 实现模糊查询时出错,提示无效字符
- 请教,数组指针 的初始化和使用?
- 送分100,求告知WinRAR中那种大工具栏大图标效果是如何做出来的!在线等,谢谢!
- 从数据库中读取的字符串在报表里显示时怎么换行呀?急!谢谢!
- 请问哪有MODALMAKER下载???
- 请教:程序运行时提示少一个BetterADODataSet.dcu.这是什么东东??
- “100套餐类”,怎样取出以上字符串中的数字?
- 菜鸟提问:怎么让窗体显示一端时间?
- 如何用Ado连接加了密码的ACCESS2000数据库?
- Delphi能象C++一样重载运算符吗?
- 请教一个编译错误:Declaration differs from declaration?
- delphi中如何实现按比例最大化不变形
关闭窗口.close;
var
H:THandle;
begin
H:=FindWindow( nil, Pchar( 'form2' ) );
if H <> 0 then SendMessage(h, WM_CLOSE, 0, 0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
end;
pagecontrol1.ActivePageIndex:=0;
if not Assigned(frmMZsf) then
frmMZsf:=TfrmMZsf.Create(Application); frmMZsf.Parent:= tabsheet1;
frmMZsf.Show;
lastForm:= frmMZsf.name;
然后我开第二个窗口是这样的
H:=FindWindow(nil, Pchar(lastForm));
if H <> 0 then
SendMessage(h, WM_CLOSE, 0, 0);
pagecontrol1.ActivePageIndex:=0;
if not Assigned(FrmMzTuiFei) then
FrmMzTuiFei:=TFrmMzTuiFei.Create(Application); FrmMzTuiFei.Parent:= tabsheet1;
FrmMzTuiFei.Show;
其中lastform是全局变量,
但是没找到上一个窗口呢??
Form2:TForm2;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2:=TForm2.Create( Owner );
form2.Parent := self.Panel1;
Form2.Show;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
Field: ^TForm;
begin
Field := self.FieldAddress('Form2');
if Field <> nil then
begin
Field.Close;
end;
end;
Form2:TForm2;数据成员的名称 如果要定位到TForm2参数就是FieldAddress的参数就是Form2