TO juliens(星星球) ,你的代码通不过呀。 FreeAndNil(Components[i]);这一段代码有错误。
var i: Integer; begin for i := 0 to Application.ComponentCount - 1 do begin if Application.Components[i] is TForm then TForm(Application.Components[i]).Close; end; end;但是当你把所有窗口都关掉时Application也关掉了!
var dd:tform; begindd:=tform.CreateParented(self.Handle ) dd.Show; end;这样可以
你创建窗体的时候,把OWNER设置为APPLICATION
你指的是MDI模式下关闭主窗体时关闭子窗体吧,可尝试以下代码 procedure TFrmMain.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to FrmMain.MDIChildCount-1 do begin FrmMain.MDIChildren[i].Close; end; end; 请注意在子窗体的OnClose事件中写以下代码: Action:=Cafree;
TO juliens(星星球) 怎么像这样的功能我就怎么不知道怎么做呢?您是如何学到今天这一步的,需要看一些什么书呵。
begin
if Components[i] is TForm then
FreeAndNil(Components[i]);
end;
FreeAndNil(Components[i]);这一段代码有错误。
begin
for i := 0 to Application.ComponentCount - 1 do
begin
if Application.Components[i] is TForm then
TForm(Application.Components[i]).Close;
end;
end;但是当你把所有窗口都关掉时Application也关掉了!
dd:tform;
begindd:=tform.CreateParented(self.Handle )
dd.Show;
end;这样可以
procedure TFrmMain.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to FrmMain.MDIChildCount-1 do
begin
FrmMain.MDIChildren[i].Close;
end;
end;
请注意在子窗体的OnClose事件中写以下代码:
Action:=Cafree;
怎么像这样的功能我就怎么不知道怎么做呢?您是如何学到今天这一步的,需要看一些什么书呵。