Forum: Object-Pascal / Delphi-Language
Delphi
by RomanK,
2. Okt 2002
Da man es in der Tat öfters brauchen kann, hab ich mal eine Funktion geschrieben:
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;
Forum: Object-Pascal / Delphi-Language
Delphi
by RomanK,
2. Okt 2002
Tut sie!
Aber meine ist wohl etwas einfacher zu verstehen!!
Man müss ja nicht mit dem Panzer auf Spatzen schießen!
Und wenn wir schon dabei sind dann mach es besser so:
SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE);
Button1.Caption := 'Line1' + #13#10 + 'Line2';
Weil dann muss man i nicht deklarieren :wink:
Forum: Object-Pascal / Delphi-Language
Delphi
by RomanK,
2. Okt 2002
Nimm einen TBitBtn und dann
bitbtn1.Caption:='Erste'+#13+#10+'Zweite';
Zweite Registrierkarte "Additional"(Englische Version) und dann erster Button!