Autosize bei LGO

[nailor]

Wie kann man bei während Laufzeit generierten Objekten (Labels) Autosize anstellen?

[CalganX]

Wieso nicht
aLabel.AutoSize := true; Chris

[nailor]

weil:

Delphi-Quellcode:

SetLength(DieChecks, length(capts)); //capts ist ein array of string
for i := low(DieChecks) to High(DieChecks) do
  begin
    DieChecks[i] := TCheckbox.Create(self);
    DieChecks[i].Top := 100 + i * 22;
    DieChecks[i].Left := 10;
    DieChecks[i].AutoSize := true;   //Zeile 146
    DieChecks[i].Caption := capts[i];
    DieChecks[i].Visible := true;
    InsertControl(DieChecks[i]);
  end;

das meldet:

[Error] Unit1.pas(146): Undeclared identifier: 'AutoSize'

[CalganX]

Eine CheckBox hat ja auch kein AutoSize...

Chris

[nailor]

Sehr geehrte Delphi-Praxis!

Mit Bedauern muss ich feststellen, dass diesem Forum dringend ein Smilie fehlt, der mit dem Kopf gegen die Wand schlägt.

MfG,
Nailor

Oh Mann, Danke nochmal

[Christian Seehase]

Moin Nailor,

Du kannst ja die erforderliche Breite mit Hilfe von

Form1.Canvas.TextWidth(capts[i]); berechnen lassen.
Dann brauchst Du das Autosize ja nicht.

[nailor]

Ich kanns auch einfach auf 100 stellen, dann hat sichs erledigt, aber AutoSize ist doch so eine schöne Erfindung (ausser der Text ist drei DIN-A4 Seiten lang).

[Luckie]

Zitat von Nailor:

Sehr geehrte Delphi-Praxis!
Mit Bedauern muss ich feststellen, dass diesem Forum dringend ein Smilie fehlt, der mit dem Kopf gegen die Wand schlägt.

Hier bitte: http://www.luckie-online.de/_pics/wallbash.gif

[nailor]

genau sowas muss eingebaut werden!

[Luckie]

Aber dann hört auch bitte das http://www.luckie-online.de/_pics/mecker.gif nach neuen Smilis auf.