Label mit dynamischer Höhe, aber fester Breite?

[Lannes]

Hallo,

eine andere Möglichkeit:

Delphi-Quellcode:

function SetLabelHeight(aLabel: TLabel): Integer;
var bmp : TBitMap;
    aRect : TRect;
begin
  bmp := TBitMap.Create;
  try
  bmp.Canvas.Font.assign(aLabel.Font);
  aRect := Rect(0,0,aLabel.Width,0);
  DrawText(bmp.Canvas.Handle, PChar(aLabel.Caption), Length(aLabel.Caption),
           aRect, DT_WORDBREAK or DT_CALCRECT);
  Result := aRect.Bottom  + 2;
  finally
    bmp.Free;
  end;
end;