我不明白
还有一个问题:close和terminate有何区别?
还有一个问题:close和terminate有何区别?
解决方案 »
- DLL能反编译吗
- 求助DX:如何解析编码,急~
- 如何修改实现自定义Cookie提交?
- 在delphi 上使用 Auto cad R14这样的图形??
- 在线焦急等待,但是它是一个很简单的问题,如何判断Edit匡里输入的数字?也就是说判断数字的函数是什么?
- 有哪位大侠知道‘带统计显示功能的加强dbgrid‘控件下载吗?
- jackie168(玉面書生) 先进来拿分!
- 谁会service组件,哪里有现存的例子?
- 一个非常很酷,难的问题,100分相送!
- 请教:通过TPrinterSetupDialog设置了打印机后, 如何得到当前打印机的纸张大小(A3还是A4等等)??
- 送分题~~
- 有识之士们,当窗口 create后 ...................................................... 你们怎么看?
2.procedure TCustomForm.Close;
var
CloseAction: TCloseAction;
begin
if fsModal in FFormState then
ModalResult := mrCancel
else
if CloseQuery then
begin
if FormStyle = fsMDIChild then
if biMinimize in BorderIcons then
CloseAction := caMinimize else
CloseAction := caNone
else
CloseAction := caHide;
DoClose(CloseAction);
if CloseAction <> caNone then
if Application.MainForm = Self then Application.Terminate
else if CloseAction = caHide then Hide
else if CloseAction = caMinimize then WindowState := wsMinimized
else Release;
end;
end;
看上面这段程序,如果是mainform是没有区别,但如果是子窗口的话,以下就不用说了,自已看程序.
parameter[0].value:=..........注意,它是变体类型,也就是说一般情况下,它能进行类型转换。但是程序效率来说,使用变体速度要慢一些(可能人是不好觉察的)close和terminate有何区别?主窗体调用close 程序就结束了,非主窗体调用close就隐藏(除非你让Action:=caFree)
而无论在程序何处调用Application.terminate 程序就关闭。