有一个mdi child 风格的子窗口 他的关闭事件象下面的代码(TForm2.FormClose)procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;这个子窗口里有个按纽 作用是按下这个按纽 就关闭这个子窗口 在Button1Click要怎么写这个代码啊?
procedure TForm2.Button1Click(Sender: TObject);
begin
//要怎么样才能关闭这个子窗口啊??
end;
begin
Action:=caFree;
end;这个子窗口里有个按纽 作用是按下这个按纽 就关闭这个子窗口 在Button1Click要怎么写这个代码啊?
procedure TForm2.Button1Click(Sender: TObject);
begin
//要怎么样才能关闭这个子窗口啊??
end;
解决方案 »
- 在汇编中要调用showmessage时怎么组织参数?
- 如何将鼠标控制在一定范围内?
- 在WebSnap的开发中,怎么让Login登录界面不重复出现
- locate是不是不能对计算字段起作用的?
- 请问如何实现监测某一个文件是否被更新(修改、增加内容)呢?
- listview控件问题
- Delphi Tstringlist释放的问题
- 急!!tupdatesql的问题?
- 问你们一个巨深巨难的问题。。。
- wwwunix([email protected]),错误信息已贴出怎么不帮我解决难题
- 各个 function 之间调用,如果当现某种条件时,比如:用户取消,停止function的工作,但不退出整个应用程序?
- 怎么提取DBGrid里的数据啊
begin
close;
end;
你干吗不写在一起呢?
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
form2:=nil;
end;
begin
close;
end;