想更改edit的消息，但是我的edit不接受任何消息。请看看

Question

就是想更改edit的消息处理
procedure TForm1.Button1Click(Sender: TObject);//靠这个按钮激活
begin
OLDWndProc:=self.Edit1.WindowProc; //存储旧的
self.Edit1.WindowProc:=self.DragFileProc; //设置新的处理
end;procedure TForm1.DragFileProc(var Message:TMessage);//处理
begin
//我这里面写什么呢?Message.msg里的消息都能得到值，但是我的edit框就是不对任何消息做出反应。
试了DefWindowProc使用默认处理和CallWindowProc发回原处处理，但是似乎是对函数不熟操作不得当，没办法激活edit对常用消息的处理啊~~~我哪里谢错了请大虾提示一下。谢谢~
end;