如果某个控件的Align属性被设置成alclient或者其他，如何在运行时知道其实际的大小

Question

RT

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    showmessage('Width:'+IntToStr(image1.Width)+#13+#10+'Height:'+IntToStr(image1.Height));
end;
值是动态变的，说明每次调用的时候返回都是现在的大小...

Answer 2

你所指的“实际的大小”是它控件在form上的长和宽么？当你设置它的Align属性为alClient的时候它实际的大小已经等于它父控件的大小了
如果你执意要得到它“本来的”长和宽的话，可以给你一个建议，你在object inspector里设置它的属性为None，然后在formshow的事件里写
procedure TForm1.FormShow(Sender: TObject);
begin
    caption:='width:'+inttostr(memo1.Width)+' height:'+inttostr(memo1.Height);
    memo1.Align:=alClient;
end;