在Delphi 2010中,我正在创建一个表单,然后创建一个TFrame,并将TFrame.Parent分配给表单,最后以模态方式显示表单。一切正常...该框架具有DBNavigator、DBFields等字段。当用户单击“发布/保存”时,我希望自动关闭表单。我尝试了一些方法,例如Close、Action = caFree、(DBNav.parent.parent) as TForm.Free等,但似乎都不起作用。怎样才能在TFrame中从内部关闭表单呢?
创建此内容的代码是...
感谢您的来信,
GS
创建此内容的代码是...
// Create the Window
ThisWin := TEmptyFrameWin.Create(nil);
// Create the Frame for the Window
ThisFrame := TFrameUsage.Create(Application);
ThisFrame.Parent := ThisWin;
// Load the data
ThisFrame.tUsage.Open;
ThisFrame.tUsage.FindKey([StrToInt(ID)]);
ThisFrame.LoadDateFields;
ThisWin.Caption := 'Change Appointment Information';
// Only show the POST button
ThisFrame.UsageNav.VisibleButtons := [sbPost];
try
ThisWin.ShowModal;
finally
ThisWin.Free;
end;
感谢您的来信,
GS
Release
是用于当窗体或其控件的消息处理程序正在销毁时。从此处所示的代码来看,在调用Free
时,窗体不可能在处理任何消息,所以没问题。 - Rob Kennedy