procedure TForm1.FormShow(Sender: TObject);
var
  rect:TRect;
begin
  rect:=GetClientRect;
  edt1.Text:=IntToStr(rect.Top)+' : '+IntToStr(rect.Bottom);
end;GetClientRect到底取得的什么呢? 为何输出 0 : 446
ClientRect和GetClientRect作用一样吗?
求解释,希望能详细点

解决方案 »

  1.   

    GetClientRect 是 TControl 一个函数
    ClientRect 是属性  TForm 继承自 TControl 
    因此你用以上2个都是获得当前窗体工作区的Height
    GetClientRenct函数原型:
    function TControl.GetClientRect: TRect;
    begin
      Result.Left := 0;
      Result.Top := 0;
      Result.Right := Width;
      Result.Bottom := Height;
    end;
      

  2.   

    菜和买菜的关系,一个是名词一个是动作,clientrect是指form的可视区域,getclientrect是指得到form的可视区域,这里区域指矩形
      

  3.   

    ClientRect是属性。Property ClientRect : TRect Read GetClientRect;