Inno Setup procedure 的写法举例

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