令我迷惑多時的問題,還請各位多多幫忙。(50分)

  • 主题发起人 主题发起人 leway
  • 开始时间 开始时间
L

leway

Unregistered / Unconfirmed
GUEST, unregistred user!
用WriteComponent將控件存成文件時,為何控件的width、height被改變了。如何實現控件的width、height
不被調整。
例如: 存成文件之前 edit1.width:= 54 edit1.height:= 6
存成文件後,在文件中確發現width、height被調整了。如何讓width、height不被調整。
如下是我將控件存成文件的代碼。
procedure TForm1.Button1Click(Sender: TObject);
var
S: TFileStream;
i: integer;
begin
S:= TFileStream.Create('d:/test',fmOpenWrite or fmCreate);
try
for i:= 0 to Form1.ControlCount -1 do
S.WriteComponent(Form1.Controls);
finally
S.Free;
end;
end;
 
将 edit 的属性 autosize 设为 false
 
接受答案了.
 
后退
顶部