RT

解决方案 »

  1.   


    Button1.Caption := '我'#13'换行了吗?';
      

  2.   

    用TBitBtn取代TButton、伴水实践编程中从来不用TButton、反正现在的内存大、硬盘也大、不要担心这一小点点资源~~否则硬件公司就要和你急~~begin
      BitBtn1.Caption := 'Line1'#13#10'Line2'#13#10;
    end;
      

  3.   

    我试了一下普通的button是不可以换的,bitbtn是可以换的!
      

  4.   

    自己写个控件把, DrawText()
      

  5.   

    procedure TForm1.Button2Click(Sender: TObject);
    begin
      button1.Caption := 'hello' + #13 + 'Me';
      SetWindowLong(button1.handle,Gwl_style,GetwindowLong(button1.handle,gwl_style) or bs_multiline);
      button1.Repaint;  // if it is writed on formcreate, it needn't repaint.
    end;