Mega Code Archive

 

Categories / Delphi / VCL

 

How to create a button with more than one line of text

Title: How to 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;