procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;procedure TForm1.CMMouseEnter(var Message: TMessage);
begin
if TObject(Message.LParam) = Image1 then begin
self.Caption := '光標進入;
end;
end;
procedure TForm1.CMMouseLeave(var Message: TMessage);
begin
if TObject(Message.LParam) = Image1 then begin
self.Caption := '光標離開;
end;
end; 見鬼回車沒有反應!!