Positionierung von Objekten / Grid?

[uligerhardt]

Zitat von Cosamia:

Ich denke eher darüber nach es in Row´s und Col´s zu definieren.

Sowas?

Delphi-Quellcode:

unit EditRaster;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls;

const
  cEditCount = 13;
  cRowCount = 3;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FEdits: array[0..Pred(cEditCount)] of TEdit;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  x, y: Integer;
  ed: TEdit;
begin
  x := 8;
  y := 8;
  for i := 0 to Pred(cEditCount) do
  begin
    ed := TEdit.Create(Self);
    ed.Name := 'Edit' + IntToStr(i);
    ed.Parent := Self;
    ed.SetBounds(x, y, ed.Width, ed.Height);
    if Succ(i) mod cRowCount = 0 then
    begin
      x := 8;
      Inc(y, ed.Height + 8);
    end
    else
      Inc(x, ed.Width + 8);
    FEdits[i] := ed;
  end;
end;

end.