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.
 

相关阅读 >>

Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi 简单判断程序30秒没有键盘和鼠标动作

Delphi dll窗体调用解

Delphi开机启动项管理源码

Delphi xe 遍历指定数据库，清空各表记录

Delphi 检验指定字符串网址是否输入正确

Delphi 数据类型cardinal 怎么转换成 string？

Delphi研究之驱动开发篇（六）--利用section与用户模式程

Delphi qr /条形码扫描仪应用示例代码（使用zxing，tframestand）

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

转载请注明出处：木庄网络博客 » Delphi 之 TRichEdit组件