读书人

请问一个关于窗体的有关问题

发布时间: 2012-03-20 14:01:10 作者: rapoo

请教一个关于窗体的问题
一个程序建立两个窗体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里面的,你那样写也可以!~

读书人网 >.NET

热点推荐