TBitBtn Größe zur Laufzeit anpassen

[Peter A. Smolik]

Hallo,

Gibt es eine Möglichkeit die BitBttn Größe (vorallem width) der Länge des Caption-Textes anzupassen zu Laufzeit?

Lg
Peter

[Ulrich Gerhardt]

Hi Peter,
<br>ich hab letzthin folgenden Code für Checkboxen gefunden:
<pre class="sourcecode"><code>
<b>procedure</b> TAdjustableCheckBox.AdjustSize;
<b>var</b>
r: TRect;
dc: HDC;
h: HWND;
oldFont: HFONT;
<b>begin</b>
r := ClientRect;
r.Right := r.Left;
<br>
h := Handle;
dc := GetDeviceContext(h);
oldFont := SelectObject(dc, Font.Handle);
<br>
DrawText(dc, PChar(Caption), Length(Caption), r,
DT_NOCLIP <b>or</b> DT_EXPANDTABS <b>or</b> DT_CALCRECT);
<br>
SelectObject(dc, oldFont);
ReleaseDC(h, dc);
<br>
<b>if</b> Height &gt; r.Bottom <b>then</b>
r.Bottom := Height;
SetBounds(Left, Top, r.Right + 20, r.Bottom); // Die magische "20" soll Platz für das Häkchenbitmap freihalten.
<b>end</b>;
</code></pre>
Vielleicht kannst du das ja in Richtung Buttons umstricken.
<br>HTH, Uli