初学者，问个问题，一个程序2个窗口如何关闭一个的时候不是仅仅关闭窗口啊？

Question

可能没说清楚，我的程序有2个窗口，FRM1,FRM2，FRM2使用FRM1上的按钮调出来的，在FRM2上有些串口读出来的数据的显示，用CLOSE关闭的时候窗口是关闭了，可是再打开的时候不像第一次打开一样，数据和图标都不是FRM2刚创建时候的样子，请问，如何再关闭后再打开能和第一次一样啊，新手，莫笑

Answer 1

读数据的程序，在form2的OnShow事件中调用即可

Answer 2

FORM2 放到 available FORM 里面
显示的时候
form2:=Tform2.Create(nil);
form2.ShowModal;
form2.Free;

Answer 3

var
 frm2:TForm2
begin
 frm2:=TForm2.Create(nil);
 frm2.ShowModal;
 FreeAndNil(frm2);