小问题,20分.

Question

假设有两个Form, Form1,form2;  Form1为mainform,当程序第一次运行时,form2先
出现,当在form2中进行了某项操作后,以后程序运行时,form1先出现,否则以后还是
form2先出现.

Answer 1

procedure TForm1.FormShow(Sender: TObject);
begin
  form2.ShowModal;
end;

Answer 2

if flag=(函数或是ｂｏｏｌｅａｎ数值) then 
begin
form1.Create(TForm,form1);
form1.show;
end
el;se
begin
end;

Answer 3

工程文件中aa
建立配置文件aa.ini或注册表或数据库中写或。。
begin
   //读取配置文件
 if true then  
   Form2:=TForm2.create(nil);
   if Form2.doModal()=IDOK then 
   begin
     Form1:=TForm1.create(Application);
    end;    
 else
    Form1:=TForm1.create(Application);
 end; 
end.

Answer 4

begin
   //读取配置文件
 if true then  
   Form2:=TForm2.create(nil);
   if Form2.doModal()=IDOK then 
   begin
     Form1:=TForm1.create(Application);
    end;    
 else
    Form1:=TForm1.create(Application);
 end; 
end.

Answer 5

在创建应用程序的单元实现Danphel(Aleon) 写法

Answer 6

思路如下:
1.显示Form2
2.执行某项操作,设定标志位1
3.再次执行的时候,判断标志位,若1,显示Form1,否则Form2实质上是这样的：
程序运行时，先判断标志位！
是0，显示form2
是1，显示form1
标志位的改变，仅在操作form2的某项特殊操作后。