Placering af dynamiske Label

du kan gøre noget alla det her :

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    aLabel : TLabel;
    aLabel1 : TLabel;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  aLabel := TLabel.Create(self);
  aLabel.Caption := \'Pferde\';
  aLabel.Name := \'Label\' + IntToStr(Self.ComponentCount);
  aLabel.Left := 37;
  aLabel.Top := 11;
  InsertControl(aLabel);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  aLabel1 := TLabel.Create(self);
  aLabel1.Caption := \'Pferde\';
  aLabel1.Name := \'Label\' + IntToStr(Self.ComponentCount);
  aLabel1.Left := aLabel.Left + 37;
  aLabel1.Top := aLabel.Top + 11;
  InsertControl(aLabel1);
end;

Jens B

På din første label kan du finde dens position ud fra

label1.BoundsRect

Boundsrect indeholder både top, left, Right og bottom.

Hej Borrisholt
Kan du ikke lige forklare mig forskellen på procedure TForm1.Button1Click og procedure TForm1.Button2Click ud over et 1 tal
hilsen Anold

For skellen er ikke så stor ...

Fidusen er blot at TForm1.Button2Click udnytter viden om ar den første label allerede er oprettet, og derfor kan placere sig dynamisk i forhold til den ...

Jeg er ikke helt klar over hvad du prøver at lave ..

Jens B