能否具体点 比如如下代码中: procedure TForm1.WndProc(var Message : TMessage); begin if Message.LParam = Longint(Label1) then //处的Longint 是什么意思? begin if (Message.Msg = CM_MOUSELEAVE) then Label1.Font.Color :=clred; if (Message.Msg = CM_MOUSEENTER) then Label1.Font.Color :=clgreen; end; inherited WndProc(Message);end;
procedure TForm1.WndProc(var Message : TMessage);
begin
if Message.LParam = Longint(Label1) then //处的Longint 是什么意思?
begin
if (Message.Msg = CM_MOUSELEAVE) then
Label1.Font.Color :=clred;
if (Message.Msg = CM_MOUSEENTER) then
Label1.Font.Color :=clgreen; end;
inherited WndProc(Message);end;
这里和Label1的地址对比,看是不是label1,如果是就做后面的操作
本质上Label1跟变量i是没有什么大的区别的,这里使用是将Label1指向的地址
转化为长整型,检查Label1是否是发送消息的对象