Placering af Label dynamisk

Hej Anders

Hvad med noget i retning af følgende:

Const
  LeftPos  = 30;
  StartTop = 30;
  YDiff    = 20;

procedure TForm1.Button1Click(Sender: TObject);
Var
  Index  : Integer;
  CurTop  : Integer;
begin
  CurTop := StartTop;
  For Index := 0 To ComponentCount-1 Do
    If Components[Index] is TLabel Then
      With (Components[Index] As TLabel) Do
        Begin
          Left := LeftPos;
          Top  := CurTop;
          Inc(CurTop, YDiff);
        End;
end;

Delphi

Hej Delphi

Jo det skal da nok virke men det jeg haved tænkt mig var at jeg opretter og placer labeln med det samme under hinanden (JA jeg kan godt se at der står noget andet i mit spørgsmål)

Fik du ikke for nogen tid siden et lille test program af mig, hvor jeg gemte/loadede positionen af en stak labels i en INIFile.  I det program er jeg ret sikker på at der ingår en procedure der laver en hel stak dynamiske labels (det er deres positioner jeg gemte/loadede).  Den rutine, sammen med brugen af StartTop og YDiff her fra dette spørgsmål, er lige det du behøver.

Email mig efter test programmet hvis du ikke har det mere.  (np@tagarno.dk)

Delphi

OK Delphi
Nu har jeg brygget noget sammen af de program stumper jeg har fået af dig og det virker fint når jeg opretter labels på Formens Canvas
så kan jeg godt få dem til at stå pænt under hinanden
Men jeg skal oprette dem på en ScrollBox og så virker det ikke
min kode ser sådan ud :

procedure TFrmpulje.Button1Click(Sender: TObject);
begin
  Flabel := Tlabel.Create(Frmpulje.ScrollBox1);
  Flabel.parent := Frmpulje.ScrollBox1;
  Flabel.Top := 10;
  Flabel.Left := 10;
  Flabel.Caption := \'Dette er en Test\';
end;


procedure TFrmpulje.Button2Click(Sender: TObject);

Var
  Index  : Integer;
  CurTop  : Integer;
begin
  CurTop := StartTop;
  For Index := 0 To ComponentCount-1 Do
    If Components[Index] is TLabel Then
      With (Components[Index] As TLabel) Do
        Begin
          Left := LeftPos;
          Top  := CurTop;
          Inc(CurTop, YDiff);
        End;
end;

Hvordan får jeg det til at virke ???
 

Godmorgen.  Du er dæleme tidligt oppen.

Dit problem ligger i brugen af ComponenCount og Components, hvor du benytter dem der hører til din Form (TFrmpulje).  Du skal, når du ønsker at benytte en scrollbox, benytte scollboxen\'s tilsvarende properties.  Se i nedenstående Button2Click metode.


procedure TForm1.Button1Click(Sender: TObject);
Var
  Flabel : TLabel;
begin
  Flabel := Tlabel.Create(ScrollBox1);
  Flabel.Parent := ScrollBox1;
  Flabel.Top := 10;
  Flabel.Left := 10;
  Flabel.Caption := \'Dette er en Test\';
end;

procedure TForm1.Button2Click(Sender: TObject);
Const
  StartTop = 10;
  LeftPos  = 20;
  YDiff    = 20;
Var
  Index  : Integer;
  CurTop  : Integer;
begin
  CurTop := StartTop;
  For Index := 0 To ScrollBox1.ComponentCount-1 Do
    If ScrollBox1.Components[Index] is TLabel Then
      With (ScrollBox1.Components[Index] As TLabel) Do
        Begin
          Left := LeftPos;
          Top  := CurTop;
          Inc(CurTop, YDiff);
        End;
end;

Delphi