Text auf Button zweizeilig darstellen

[RomanK]

Da man es in der Tat öfters brauchen kann, hab ich mal eine Funktion geschrieben:

Code:

function TwoLines(but:TButton;First,Second:String):Boolean;
begin
if SetWindowLong(but.Handle, GWL_STYLE, GetWindowLong(but.Handle, GWL_STYLE) or BS_MULTILINE)> 0 then
begin
  but.Caption :=First + #13#10 + Second;
  result :=True;
end
else
result := false;
end;