Delphi 之 TRichEdit组件

本文整理自网络，侵删。

 Delphi 之 TRichEdit组件
TRichEdit组件属性
　　Lines
用来编辑单行添加文本或删除文本
　　HideSelection
为true是，组件有焦点，false则无焦点
　　TRichEdit组件方法
　　Clear
删除文本
FindText
查找指定的文本
示例
查找RichEdit组件指定的字符串
ibegin:= richedit1.FindText(Edit1.Text,ibegin,Length(RichEdit1.text),[stMatchCase]);  if ibegin <> -1 then  begin    RichEdit1.SetFocus;    RichEdit1.SelStart:=ibegin;    RichEdit1.SelLength:=1;    inc(ibegin);  end  else if ibegin = -1 then  begin    ibegin:= 0;    Application.MessageBox('没找到变量','提示',MB_OKCANCEL+mb_iconinformation);
  end;复制代码LoadFromFile
　　按指定的文件路径将文本内容载入到TRichEdit组件中
示例：将文本文本的内容载入到TRichEdit组件中
procedure TForm1.Button1Click(Sender: TObject);begin  if OPenDialog1.Execute then  begin    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);  end;end;复制代码带滚动控件
procedure TForm1.BitBtn1Click(Sender: TObject);begin  with RichEdit1 do  begin    SelStart:= Length(text);    Perform(EM_SCROLL,0,0);  end;end;
procedure TForm1.BitBtn2Click(Sender: TObject);begin  with RichEdit1 do  begin    Perform(EM_SCROLL,SB_LINEDOWN,0);  end;end;
procedure TForm1.Button1Click(Sender: TObject);begin  if OpenDialog1.Execute then  begin    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);  end;end;
end. 

相关阅读 >>

wmi cim_datafile的33个属性

Delphi区分汉字和字母的函数

Delphi 如何取得系统中的桌面的路径

Delphi getdir 获取指定驱动器的当前路径名

Delphi 对话框初始地址initialdir

Delphi firemonkey中listboxaccessory图标切换

Delphi目录操作示例

Delphi 分享三个随机字符串

Delphi 隐藏桌面图标和任务栏

Delphi窗口最小化和还原事件捕获

更多相关阅读请进入《Delphi》频道 >>