procedure TControl.CMMouseEnter(var Message: TMessage); begin if FParent <> nil then FParent.Perform(CM_MOUSEENTER, 0, Longint(Self)); end;
procedure WindowProc (...........) begin case Message.msg of WM_CREATE://窗口将要被创建 WM_DESTROY://窗口将被释放 WM_COMMAND://当控件被单击,双击,下拉等时发生 WM_NOTIFY://COMMON CONTROL 的通知消息 . . . end; 还是用SDK做做程序吧,这样就容易了
begin
if FParent <> nil then
FParent.Perform(CM_MOUSEENTER, 0, Longint(Self));
end;
begin
case Message.msg of
WM_CREATE://窗口将要被创建
WM_DESTROY://窗口将被释放
WM_COMMAND://当控件被单击,双击,下拉等时发生
WM_NOTIFY://COMMON CONTROL 的通知消息
.
.
.
end;
还是用SDK做做程序吧,这样就容易了
好文章