我是这么写的
   procedure TForm1.NewClick(Sender: TObject);
begin
   newsheet:=Tnewsheet.Create(application);
   input:=Tinput.Create(application);
   newsheet.ShowModal;
   input.ShowModal;
end;
我想先显示newsheet窗口然后在此窗口上显示input窗口,但是这么写总是先弹出input窗口,关闭input窗口后才显示newsheet窗口!请教各位大侠,小弟应该怎么写代码?

解决方案 »

  1.   

    newsheet.ShowModal;改成newsheet.Show;
      

  2.   

    procedure TForm1.NewClick(Sender: TObject);
    begin
       newsheet:=Tnewsheet.Create(application);
       input:=Tinput.Create(application);
       newsheet.Show;
       input.ShowModal;
    end;
      

  3.   

    同意
    ljmanage(过客)
    的观点
      

  4.   


       procedure TForm1.NewClick(Sender: TObject);
    begin
       newsheet:=Tnewsheet.Create(application);
       input:=Tinput.Create(application);
       newsheet.ShowModal;
       input.ShowModal;
    end;
    是先要关了newsheet后才可以打开input 的