社区
C++ Builder
帖子详情
如何使TMemo控件自动换行?
chensy0626
2003-01-24 09:29:23
在往TMemo控件中添加内容时,当一行的内容长度大于它的宽度时,使内容自动换行,怎样设置?
...全文
127
7
打赏
收藏
如何使TMemo控件自动换行?
在往TMemo控件中添加内容时,当一行的内容长度大于它的宽度时,使内容自动换行,怎样设置?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
自动换行
方便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.
c++ Builder
TMemo
控件
自动滚动
TMemo
控件
与TListBox相比,
TMemo
可以更加方便的实现文本的粘贴复制,TListBox更方便进行文本的操作。在开发一款跨平台的软件时,我选用的是FMX平台,由于需要呈现的数据较多,选用
TMemo
控件
。在增加日志函数中调用了
TMemo
控件
Add函数,但是经测试Add函数无法触发
控件
OnChange事件。mmoLog->Index = mmoLog->Lines->Count-1;如果在On
用delphi语言的memo组件获取到的文本不会
自动换行
在 Delphi 的 Memo 组件中,如果你希望获取到的文本
自动换行
,你可以在 Memo 组件的属性中将 WordWrap 属性设置为 True。这样,在你调用 Memo 组件的 Text 属性获取文本内容时,文本中的每一行都会在遇到窗口边界时
自动换行
。 例如,你可以在你的窗体的 OnCreate 事件处理程序中将 Memo 组件的 WordWrap 属性设置为 True: procedure ...
DELPHI XE5 FOR ANDROID 模仿驾考宝典
TMEMO
控件
随着字数增多自动增高
在一个安卓需求中,需要模仿驾考宝典的详解部分。琢磨了好几天。终于搞定: MemoAns.Height:=10;//MEMO
控件
赋初始高度值 MemoAns.Lines.Clear; MemoAns.WordWrap:=true;//
自动换行
MemoAns.Text:='详解:'+dm.FDQSQ.FieldByName('GANSER').AsString;//输入memo字串...
TMemo
的用法
网上阅读
TMemo
相关用法 BCB
TMemo
控件
查找 并 选中功能
TMemo
Control void __fastcall TForm1::Button1Click(TObject *Sender) { //全部转换成大写之后 AnsiString SourceStr = UpperCase( Memo1->Lines->Text );//已有的内容 AnsiString Fi
C++ Builder
13,822
社区成员
102,680
社区内容
发帖
与我相关
我的任务
C++ Builder
C++ Builder相关内容讨论区
复制链接
扫一扫
分享
社区描述
C++ Builder相关内容讨论区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章