Bug im TBitBtn?

[shmia]

Ein Bug ist das nicht, sondern die VCL benützt nicht die Möglichkeiten, die Windows bietet.
Versuch mal zur Laufzeit folgende Prozedur aufzurufen:

Delphi-Quellcode:

procedure MultilineButton(theControl: TWinControl);
var
   dwStyle: Longint;
begin
   dwStyle := GetWindowLong(theControl.handle, GWL_STYLE) or BS_MULTILINE;
   SetWindowLong(theControl.Handle, GWL_STYLE, dwStyle);
end;