procedure InheritBoundsRect(ASource, ATarget: TControl); begin { This is comment line } ATarget.Left := ASource.Left; ATarget.Top := ASource.Top; ATarget.Width := ASource.Width; ATarget.Height := ASource.Height; end;
作用: 把Asource的一些属性赋给ATarget
procedure InheritBoundsRect(ASource, ATarget: TControl); begin { This is comment line } ATarget.Left := ASource.Left; ATarget.Top := ASource.Top; ATarget.Width := ASource.Width; ATarget.Height := ASource.Height; end;
作用: 把Asource的一些属性赋给ATarget