Moin Roman,
warum dann nicht gleich mit beliebig vielen Zeilen?
Code:
[b]function[/b] SetMultiLineCaption([b]const[/b] p_Button : TButton;[b]const[/b] p_sCaption : [b]String[/b];[b]const[/b] p_fAutoAdjust : Boolean = false) : Boolean;
[b]begin[/b]
Result := false;
[b]if[/b] SetWindowLong(p_Button.Handle, GWL_STYLE, GetWindowLong(p_Button.Handle, GWL_STYLE) [b]or[/b] BS_MULTILINE)> 0 [b]then[/b]
[b]begin[/b]
p_Button.Caption := p_sCaption;
Result := true;
[b]end[/b];
[b]end[/b];
[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]begin[/b]
SetMultiLineCaption(self.Button1,'Und'#13#10'noch'#13#10'mehr'#13#10'Zeilen',true);
[b]end[/b];
Jetzt könnte man noch eine automatische Grössenanpassung mit einbauen, damit's auch passt. (ist vorbereitet)