如题目。

自己想了想解决了。
在TFrame单元定义一个消息：MY_ADDWORKMAN_MSG=WM_USER 100
并在该单元定义一个消息过程 procedure mynotify(var message:Tmessage);message MY_ADDWORKMAN_MSG;
用于处理接收消息后的动作。
在Form 单元向Frame 发送个消息：postmessage(Frame.handle,MY_ADDWORKMAN_MSG,0,0);