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