如何把这个form隐藏掉？？？(30分)

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-19

• #1

主要的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.QRMemo1.Lines:=Memo1.Lines ;
Form2.ShowModal;
SetFocus;
Form2.Free;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
QuickRep1.Preview;
end;
但每次关闭打印预览后，form2都会出现，请问怎样才能让form2不出现

 

Z

zswenyun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-19

• #2

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.QRMemo1.Lines:=Memo1.Lines ;
Form2.QuickRep1.Preview;
SetFocus;
Form2.Free;
end;

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-19

• #3

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.QRMemo1.Lines:=Memo1.Lines ;
Form2.QuickRep1.Preview;
end;

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-19

• #4

procedure TForm2.FormShow(Sender: TObject);
begin
QuickRep1.Preview;
close;
//要加上关闭窗体代码
end;

 

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-19

• #5

谢谢二位，马上给分

 

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-19

• #6

谢谢

 

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-19

• #7

多人接受答案了。