各位好，小弟使用Richedit試做了一個文件的閱讀程式，並以時間設定自動捲頁，所以也沒有捲軸，更不希望使用者介入操作，如此，把Enabled設為False，則可行，只不過，如此一來包含背景色等相關屬性都無法正常運作，請問各位前輩同好，可知道方法或是建議，謝謝。

試試 TRichEdit.ReadOnly := True;

謝謝hagar，但這不是我要的，不只是不能修改，連游標位置都不可以變更，就像是Enabled設成Falseㄧ樣，但背景色等屬性ㄧ樣有效。

pcernet 你好:    攔掉 Richedit 的 WM_SETFOCUS Message 試試看.

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    RWndProc : TWndMethod;
    procedure MyWndProc(var Message: TMessage);
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  RWndProc := RichEdit1.WindowProc;
  RichEdit1.WindowProc := MyWndProc;
end;    procedure TForm1.MyWndProc(var Message: TMessage);
begin
  case Message.Msg of
   WM_SETFOCUS: Message.Result:=1;
   else
    RWndProc(Message);
  end;
end;

發表人 - Mickey 於 2004/06/17 23:51:44

謝謝，您的程式我還要研究，但測試的結果可以，真的謝謝您，應該可以結案了，在結案之前，想再請教一下，因為或許有問題的連貫性，由於有使用其他元件，因此出現了兩個警告： [Warning] AMixer.pas(467): Symbol 'AllocateHWnd' is deprecated [Warning] AMixer.pas(477): Symbol 'DeallocateHWnd' is deprecated 謝謝！

你可以參考看看 Delphi Help "Declarations" 主題.