unit1.pas

DELPHI经典程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    FontDialog1: TFontDialog;
    OpenDialog1: TOpenDialog;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure RadioButton1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RadioButton2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    RichEdit1.DefAttributes.Name := '楷体_GB2312';
    RichEdit1.DefAttributes.Color := clBlue;
    RichEdit1.DefAttributes.Size := 18;
    RichEdit1.DefAttributes.Style := [fsBold, fsUnderline];

    RichEdit1.PlainText := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var ntmpPos:integer;
begin
  RichEdit1.HideSelection := false;
  ntmpPos := RichEdit1.FindText(Edit1.Text, RichEdit1.SelStart + RichEdit1.SelLength, Length(RichEdit1.Text),[stMatchCase]);
  if (ntmpPos<>-1) then
    begin
      RichEdit1.SelStart := ntmpPos;
      RichEdit1.SelLength := Length(Edit1.Text);
      ShowMessage('find:'+RichEdit1.SelText);
    end
  else
    begin
      if (MessageDlg('找不到...重头找起?',mtConfirmation,
            [mbYES,mbNO],0)=mrYES) then
        begin
          RichEdit1.SelStart := 0;
          Button1Click(nil);
        end;
    end; 
end;

procedure TForm1.N3Click(Sender: TObject);// 设定选取的字体
begin
   if FontDialog1.Execute then
   begin
     RichEdit1.SelAttributes.Color := FontDialog1.Font.Color;
     RichEdit1.SelAttributes.Name := FontDialog1.Font.Name;
     RichEdit1.SelAttributes.Size := FontDialog1.Font.Size;
     RichEdit1.SelAttributes.Style := FontDialog1.Font.Style;
   end;
end;

procedure TForm1.RadioButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    RichEdit1.PlainText := false;
end;

procedure TForm1.RadioButton2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   RichEdit1.PlainText := true;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
     begin
       RichEdit1.Lines.Clear;
       RichEdit1.Lines.LoadFromFile( OpenDialog1.FileName );
     end;
end;

end.