大家好: 請問RichEdit能否做到 開啟某篇文章a.txt後, 再用如wordpad修改同一檔案a.txt內容,存檔後, RichEdit可以發現該篇文章被動了,能警示,並更換能最新的內容. 可能嗎? 還是要別的方法 才能做得到. 謝謝

Hi airwei 你好:    有沒有發現當我們將Ultra Edit開著, Focus也在他上面時, 別台電腦修改檔案並存檔, 他並不會馬上跳出提示更新的視窗, 我想他是在OnActive上做手腳, 但不是Form的OnActive而是Application的OnActive, 所以你可以在Additional那一頁拉一顆TApplicationEvents, 並在他的OnActive上寫類似如下的程式碼    

var
MyFileTime : TDateTime;    procedure TForm1.FormCreate(Sender: TObject);
begin
  MyFileTime := FileDateToDateTime(FileAge('c:\Four.txt'));
   Memo1.Lines.LoadFromFile('c:\Four.txt');
end;    procedure TForm1.ApplicationEvents1Activate(Sender: TObject);
begin
   if MyFileTime <> FileDateToDateTime(FileAge('c:\Four.txt')) then begin
      if MessageDlg('檔案有變動, 是否更新', mtInformation, [mbYes, mbNO], 0) <> mrYes then exit;
      Memo1.Lines.LoadFromFile('c:\four.txt');
   end;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.