请问大家这个应用(控制程序界面)该如何来做？

[shuaixf]

一个工程有两个界面，根据参数params=a打开界面1，params=b打开界面2
【工程代码】

    ......
    Application.Initialize;
    Application.Title := 'test';
    Application.CreateForm(TDataModule, DataModule);
    if params='a' then
      Application.CreateForm(TForm1, Form1)
    else if params='b' then
      Application.CreateForm(TForm2, Form2);
    Application.Run;

但是当打开界面1后，配置好参数后需要关闭1并打开界面2，这怎么做呢？

procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Application);
  Close;
  Form2.ShowModal;
  .....
end;

因为在引用中Form2有ocx控件，Form2 := TForm2.Create后，ocx控件就会加载参数，参数是通过界面1配置的。

[sparklerl]

procedure TForm1.Button1Click(Sender: TObject); 
var  
  Form2: TForm2; 
begin  
  Form2 := TForm2.Create(Application); 
  Close; 
  Form2.ShowModal; 
  ..... 
end;

你这个代码在运行的时候有什么问题嘛?

[shuaixf]

整个应用程序关掉了。

[sparklerl]

    ......
    Application.Initialize;
    Application.Title := 'test';
    Application.CreateForm(TDataModule, DataModule);
    if params='a' then
      begin
        Form1:=TForm1.Create(nil);
        if Form1.ShowModal=mrOK then Application.CreateForm(TForm2, Form2);           
      end 
      else if params='b' then
        Application.CreateForm(TForm2, Form2);
    Application.Run;

procedure TForm1.Button1Click(Sender: TObject); 
var  
  Form2: TForm2; 
begin  
  ModalResult := mrOK;
end;

试试这样

[sanguomi]

把FORM1隐藏

[sparklerl]

program Project1;

uses
  Controls,
  ......

mrOK在Controls里面,所以工程代码里面要加上这个

[shuaixf]

不行啊，点击后仍然显示是Form1，而不是Form2

[shuaixf]

我错了，呵呵。
发现你是对的，谢谢sparklerl你的详解！