激活子窗体有很多方法,,你这种方法很少用,,给你几个例子。。
创建子窗体:
Form2.Show;//创建form2时,form1可用
或
Form2.ShowModal;//创建form2时,form1不可用
动态创建子窗体:这样可以在使用子窗体的时候才给子窗体分配内存,不使用的时候释放内存。
procedure TForm1.Btn2Click(Sender: TObject);
var
form2:tform2;
begin
form2:=tform2.Create(nil);
try
form2.ShowModal;
finally
form2.Free;
end;
end;
//form2必须在运行时已经创建了,而且已经引用了form2单元!
你代码的错误时:Form1.Destroy;
而不是你写的 Form1.Destory
你把o r 写反了!
确认一下Unit1中是否引用了Unit3(如果你的Form3对应的是此单位)。
确认一下Form3的名称是否正确(Unit3)中的定义,类型是否为TForm3。
顺便说下,这种引用的方式不理想。通常只有两个系统间无连接时,才会启用新系统并释放本系统(即图中窗体)。另外,FREE方法可能更适合。
需要的话,把整个程序发来,帮你看看。
你的分号是不是错误了?感觉和前几个分号不大一样!或者直接写成Hide好了。