Delphi 子窗口置顶

delphi 7

子窗口不能置母窗口后面。

FORM属性设置 FORMSTYLE := fsMDIChild 即可。

[@more@]

DELPHI 關閉 子窗口 事件：

procedure TFrm_Wip_Bom.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := Cafree; //關閉時釋放窗體內存

end;

{********************}
procedure TFRM_BADNESS_RATE.BtnOkClick(Sender: TObject);
begin
// inherited;
if (DBDateTimeEditEh1.Value = null or DBDateTimeEditEh2.Value = null ) then
begin
showmessage('日期必須輸入，請檢查!');
abort;
end;

Screen.Cursor:=crSQLWait; //鼠標變成漏鬥。
with DMSfc_c.CD_TMP do
begin
close;
CommandText:= 'exec P_RATE_MAKE_NO '+ quotedStr(trim(edit1.Text))+ ','+ quotedStr(DBDateTimeEditEh1.Text)+ ','+ quotedStr(DBDateTimeEditEh2.Text);
open;
end;
DataToExcel(DMSfc_c.CD_TMP,'') ; //導出EXCEL
Screen.Cursor:=crDefault;
end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/729024/viewspace-1042061/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/729024/viewspace-1042061/