Mega Code Archive

 

Categories / Delphi / OOP

 

Create a button with more than one line of text

Title: create a button with more than one line of text? 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;