请教一个关于窗体的问题
一个程序建立两个窗体FORM1 FORM2,在FORM1的单元UINT1中USES了FORM2的但愿UNIT2。在FORM1中放一个按钮,写入代码ShowWindow(Form2.handle, SW_SHOW);
此时FORM2显示了出来,问题是点关闭按钮时却无法关闭FORM2,而FORM2的其他按钮工作正常。哪为高人能告诉我是什么原因啊?
[解决办法]
Action:=caFree;
[解决办法]
在 form1 中,用 form2.Show;
[解决办法]
procedure Tfrom2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure Tform2.FormDestroy(Sender: TObject);
begin
foem2 :=nil;
end;
上面这些是写到FORM2里面的
procedure TFrmMain.N15Click(Sender: TObject);
begin
if not assigned(form2) then
begin
form2 := Tform2.Create(Application);
form2.show;
end
end;
这些是写到FROM1里面的,你那样写也可以!~