unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit1.WordWrap       := False;
  RichEdit1.ScrollBars     := ssBoth;
  RichEdit1.HideScrollBars := False;

  RichEdit1.Lines.LoadFromFile('RichText.RTF');
end;

//=============================================================================
//  フォームのOnResizeイベント処理
//  筆者の環境では，TRichEditのクライアント領域にテキストが収まるようになっても
//  スクロールバーが操作可能な状態にならなかったので，その対策
//=============================================================================
procedure TForm1.FormResize(Sender: TObject);
begin
  RichEdit1.Invalidate;
end;

//=============================================================================
//  スクロールバー表示・非表示のトグル
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.HideScrollBars := not RichEdit1.HideScrollBars;
end;

end.

unit Unit1;

interface

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

type
  TplRichEdit = class(TRichEdit)
  protected
    procedure WMContextMenu(var Message: TWMContextMenu);
      message WM_CONTEXTMENU;
  end;

  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    plRichEdit1 : TplRichEdit;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Types;

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  plRichEdit1 := TplRichEdit.Create(Self);
  plRichEdit1.Parent := Self;
  plRichEdit1.Align  := alClient;

  plRichEdit1.WordWrap       := False;
  plRichEdit1.ScrollBars     := ssBoth;
  plRichEdit1.HideScrollBars := False;

  plRichEdit1.Lines.LoadFromFile('RichText.RTF');
end;

{ TplRichEdit }

//=============================================================================
//  WM_CONTEXTMENUメッセージ処理
//  スクロールバーのコンテキストメニューを表示しないようにする
//=============================================================================
procedure TplRichEdit.WMContextMenu(var Message: TWMContextMenu);
var
  LPos : TPoint;
begin
  LPos := ScreenToClient(Point(Message.XPos, Message.YPos));
  if PtInRect(ClientRect, LPos) then begin
    inherited;
  end else begin
    Message.Result := 0;
  end;
end;

end.