怎么让Edit控件分行显示内容

小弟初学

解决方案 »

  1.   

    回去研究下这个例子；procedure TForm1.Button1Click(Sender: TObject);beginSetCaption(button1,'第一行','第二行',form1.Color);end;procedure TForm1.SetCaption(AButton: TButton; ACaption1,ACaption2: string;color:TColor);vardc:Hdc;info:tagsize;beginAButton.Caption:='';dc:=GetDC(AButton.Handle);SetBKColor(dc,Color);SetBkMode(dc, TRANSPARENT);GetTextExtentPoint32(dc,pchar(ACaption1),length(ACaption1),info);Textout(dc,AButton.Width div 2-info.cx div 2,AButton.Height div 2-info.cy,pchar(ACaption1),length(ACaption1));GetTextExtentPoint32(dc,pchar(ACaption2),length(ACaption2),info);TextOut(dc,AButton.width div 2-info.cx div 2,AButton.Height div 2,pchar(ACaption2),length(ACaption2));end;
      

  2.   

    很简单
    可以重载 TEdit 的
    procedure CreateParams(var Params: TCreateParams); override;
    具体的做法自己查，真的很简单我做过。一楼那位朋友说的不错，没有理由不用 TMemo ，如果你只是寻找难度的话，
    自己好好看看 TCustomEdit 的源码吧。
      

  3.   

    用Memo了
    能达目的就是了
    根本就没必要用Edit