|
...in einem Button einen Zeilenumbruch anzeigen?
|
| Autor:
Thomas Stutz |
| [ Tip ausdrucken ] | | |
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := GetWindowLong(Button1.Handle, GWL_STYLE);
SetWindowLong(Button1.Handle, GWL_STYLE, i or BS_MULTILINE);
Button1.Caption := 'Line1' + #13#10 + 'Line2';
end;
|
Bewerten Sie diesen Tipp:
|
|
|
