...create a button with more than one line of text?

Author: Thomas Stutz

Category: VCL

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base