求救IDesignerHook ( 积分: 100 )

前些天做个运行期界面设计程序，虽然大致达到要求，但总觉得不爽，个人认为IDE中是完全采用IDesignerHook来实现的，证明如下：
procedure TControl.WndProc(var Message: TMessage);
begin
if (csDesigning in ComponentState) then
begin
Form := GetParentForm(Self);
if (Form <> nil) and (Form.Designer <> nil) and
Form.Designer.IsDesignMsg(Self, Message) then Exit
end;
//......
end;
哪位大虾有过深入研究，给个方向。

前些天做个运行期界面设计程序，虽然大致达到要求，但总觉得不爽，个人认为IDE中是完全采用IDesignerHook来实现的，证明如下：
procedure TControl.WndProc(var Message: TMessage);
begin
if (csDesigning in ComponentState) then
begin
Form := GetParentForm(Self);
if (Form <> nil) and (Form.Designer <> nil) and
Form.Designer.IsDesignMsg(Self, Message) then Exit
end;
//......
end;
哪位大虾有过深入研究，给个方向。

肯定，delphi ide本身就是用IDesignerHook来实现的，其它所有的Deisnger控件都是用IDesignerHook来实现的，比如extlib,dream designer，lmd design pack等等。

楼上能不能提供个带源码的下载？搜了好久没有搜到。

自己顶