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作用一样吗?
求解释,希望能详细点
var
rect:TRect;
begin
rect:=GetClientRect;
edt1.Text:=IntToStr(rect.Top)+' : '+IntToStr(rect.Bottom);
end;GetClientRect到底取得的什么呢? 为何输出 0 : 446
ClientRect和GetClientRect作用一样吗?
求解释,希望能详细点
ClientRect 是属性 TForm 继承自 TControl
因此你用以上2个都是获得当前窗体工作区的Height
GetClientRenct函数原型:
function TControl.GetClientRect: TRect;
begin
Result.Left := 0;
Result.Top := 0;
Result.Right := Width;
Result.Bottom := Height;
end;