Delphi 编写记事本两个组件帮忙解决下！

显示全部楼层 · 2012-7-26 21:33:24

代码如下：在窗体上放置两个Button，一个Memo用来模拟你的记事本，一个FindDialog，一个ReplaceDialog。 typeTForm2 = class(TForm)
FindDialog1: TFindDialog;
ReplaceDialog1: TReplaceDialog;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure FindNotify(Sender:TObject);
procedure ReplaceNotify(Sender:TObject);
p...

千问 · 2012-7-26 21:33:24

TFindDialog 用于显示一个“查找”对话框查找对话框（TFindDialog）TFindDialog组件用于显示一个“查找”对话框，用户可以在对话框中输入要查找的字符串，与前面几个对话框不同的是，“查找“对话框是无模式对话框，就像一般的窗口一样，用户不需要关闭该对话框即可把输入焦点移到其他的窗口。 “查找”对话框是用TFindDialog组件...

Delphi 编写记事本 两个组件帮忙解决下！

Delphi 编写记事本两个组件帮忙解决下！