从资源管理器拖拽文件到RichEdit
我已经实现了从资源管理器拖拽文件到Form上，即用DragAcceptFiles(Form.Handle,True)并覆盖WndProc的方法，
但我发现当把文件拖到Form.RichEdit上时鼠标又变成了不能拖拽的形状，就好像RichEdit所在的地方就不属于Form的客户区了一样。
而奇怪的是，如果把RichEdit的ReadOnly属性设置为True，或者把Enabled设置为False,那么RichEdit所在的地方又可以接受拖拽文件了。
然后我又尝试了用DragAcceptFiles(RichEdit.Handle,True)并替换RichEdit.WindowProc的方法，结果还是一样，ReadOnly为False或者Enabled为True时不能接受拖拽，ReadOnly为True或者Enabled为False时可以接受拖拽。
我把RichEdit换成Memo按上述方法测试，没有出现这种情况。
我想问有没有什么解决办法，使文件拖拽到允许编辑的RichEdit上也能成功？
贴上代码：
unit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1: TButton; RichEdit1: TRichEdit; procedure FormCreate(Sender: TObject); private { Private declarations } procedure DropFiles(var Msg:TMessage); protected procedure WndProc(var Msg:TMessage);override; public { Public declarations } end;var Form1: TForm1;implementationvar OldWndProc:TWndMethod;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin DragAcceptFiles({RichEdit1.}Handle,True);{ OldWndProc:=RichEdit1.WindowProc; RichEdit1.WindowProc:=DropFiles; }end;procedure TForm1.DropFiles(var Msg: TMessage);var hDrop:THandle;count,i:integer;buf:array[0..254]of char;begin if Msg.Msg=WM_DROPFILES then begin RichEdit1.Clear; hDrop:=Msg.WParam; count:=DragQueryFile(hDrop,$FFFFFFFF,nil,0); for i:=0 to count-1 do begin DragQueryFile(hDrop,i,buf,255); RichEdit1.Lines.Add(StrPas(buf)); end; DragFinish(hDrop); end else OldWndProc(Msg);end; procedure TForm1.WndProc(var Msg: TMessage);var hDrop:THandle;count,i:integer;buf:array[0..254]of char;begin if Msg.Msg=WM_DROPFILES then begin RichEdit1.Clear; hDrop:=Msg.WParam; count:=DragQueryFile(hDrop,$FFFFFFFF,nil,0); for i:=0 to count-1 do begin DragQueryFile(hDrop,i,buf,255); RichEdit1.Lines.Add(StrPas(buf)); end; DragFinish(hDrop); end; inherited;end;end.