Question

Delphi关于窗体的问题

由Form1打开子窗体Form2，在Form2上面的Edit里写一些字符串，再关闭Form2，为什么再打开Form2时它上面的控件都不是初始状态？如何才能让以后打开Form2都跟初次打开它一样？
也就是Form.Create事件我想让窗体每次打开都执行它

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

form1.PrintScale:=poPrintToFit;
form1.Print;
是可以打印出来的啊，
你这样试下：
在USE里加入Clipbrd

procedure TForm1.Button1Click(Sender: TObject);
var
FormImage: TBitmap;
MyImage:TImage;
begin
FormImage := GetFormImage;
MyImage:= TImage.Create(nil);
try
Clipboard.Assign(FormImage);
MyImage.Picture.Assign(Clipboard);
MyImage.Picture.SaveToFile('D:/xxx.bmp');
finally
begin
MyImage.Free;
FormImage.Free;
end;
end;
end;
看看产生的xxx.bmp就知道了，如果xxx.bmp没问题建议看看是不是打印机的问题
窗体名直接 .Print只能打印能看见的部分，如果窗体有滚动条,直接看不见那部分是打不出来的

Answer 2

就可以 了 拿不拿分不要紧，但最后很多人愿意把分给我