Fórmula para dividir un ancho

[[maeyanes]]

Hola...

Aquí metiendo mi cuchara:

Código Delphi [-]
TFormControlsOrganizer = class
private
  FMargins: TMargins; // Una clase conteniendo propiedades tales como Botton, Top, Left, Right
  FForm: TForm;
public
  constructor Create(AForm: TForm);
  procedure ArrangeControls(AControls: Array of TComponent);
property
  Margin: TMargins read FMargins write SetMargins;
end;

implementation

constructor TFormControlsOrganizer.Create(AForm: TForm);
begin
  inherited Create;
  // Para tener más adelante el alto y ancho de la forma al momento de hacer los cálculos
  FForm := AForm
end;

procedure TFormControlsOrganizer.ArrangeControls(AControls: Array of TComponent);
var
  I: Integer;
  AControl: TComponent;

begin
  for I := 0 to High(AControls) do
  begin
    AControl := AControls[i];
    // Se hacen los calculos para acomodar el control.
  end
end;

// Para organizar tres edits a lo ancho de la forma se haría algo como:
Organizer.ArrangeControls([Edit1, Edit2, Edit3]);

Y bueno, es solo una idea de como quedaría una clase que hiciera algo así...



Saludos...