如何使TMemo控件自动换行?

chensy0626 2003-01-24 09:29:23
在往TMemo控件中添加内容时,当一行的内容长度大于它的宽度时,使内容自动换行,怎样设置?
...全文
127 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
s98231106 2003-01-24
  • 打赏
  • 举报
回复
Memo1->ScrollBars = ssNone;

只要不是ssBoth和ssHorizontal就行
sunmedia 2003-01-24
  • 打赏
  • 举报
回复
只要将Memo1->ScrollBars = ssVertical就可以了
duduwolf 2003-01-24
  • 打赏
  • 举报
回复
你可能改了ScrollBars的属性了,修改此属性为None或ssVertical
kingfish 2003-01-24
  • 打赏
  • 举报
回复
自动的话就是楼上的了
halibut 2003-01-24
  • 打赏
  • 举报
回复
Memo1->ScrollBars = ssNone;//也可以,只要不是ssBoth和ssHorizontal就行
kingfish 2003-01-24
  • 打赏
  • 举报
回复
Memo1->Lines->Add("aa\r\nbbbb");
halibut 2003-01-24
  • 打赏
  • 举报
回复
Memo1->ScrollBars = ssVertical;//
方便quickreport控件自动换行问题 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Grids, DBGrids; type TForm1 = class(TForm) DBGrid1: TDBGrid; BitBtn1: TBitBtn; btnPrev: TBitBtn; btnPrt: TBitBtn; btnExit: TBitBtn; Memo1: TMemo; procedure btnPrevClick(Sender: TObject); procedure btnPrtClick(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure btnExitClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2,Unit3; {$R *.dfm} procedure TForm1.btnPrevClick(Sender: TObject); begin //调用QuickReport3模块 if Not Assigned(Form3) then Form3 := TForm3.Create(Application); //预览 Form3.QuickReport3.preview; end; procedure TForm1.btnPrtClick(Sender: TObject); begin //调用QuickReport3模块 if Not Assigned(Form3) then Form3 := TForm3.Create(Application); //打印 //Form3.QuickReport3.PreviewModal; Form3.QuickReport3.PrinterSetup; Form3.QuickReport3.Print; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin with DM.ADOQyp do begin close; sql.Clear; sql.Add(' select BM,MC from zd_yp where bm like ''04443'' '); open; end; //Form3.QRMemo1.Lines.Text:= DM.ADOQyp.FieldValues['MC'].AsString; //Form3.QRMemo1.Lines.Text:= DM.ADOQyp.FieldByName('MC').AsString; //Form3.QRMemo1.Lines.Text:= Memo1.Text; Form3.QRRichText1.Lines.Text := DM.ADOQyp.FieldByName('MC').AsString; end; procedure TForm1.btnExitClick(Sender: TObject); begin close; end; end.

13,822

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧