IntersectRect(DstRect, RecRect, ViewRect);
if not EqualRect(DstRect, RecRect) then begin
with frmIFFormDesign.isbForm do begin
HorzScrollBar.Position := RecRect.Left - Floor((ClientWidth - (RecRect.Right - RecRect.Left)) / 2);
VertScrollBar.Position := RecRect.Top - Floor((ClientHeight - (RecRect.Bottom - RecRect.Top)) / 2);
end;
end;最后两句是什么意思 ? HorzScrollBar.Position := RecRect.Left - Floor((ClientWidth - (RecRect.Right - RecRect.Left)) / 2);
VertScrollBar.Position := RecRect.Top - Floor((ClientHeight - (RecRect.Bottom - RecRect.Top)) / 2);
你就当它是伪代码好了