求三态按钮实现方法?

Question

最好用IMAGE控件,不知如何判断移出事件,最好有源码,THX!

Answer 1

foxyy8888(面向Money编程) 能具体点吗,THX

Answer 2

在OnMouseMove事件中写代码不能实现吗？

Answer 3

有两个消息:移入:mouseover  移出:mouseout

Answer 4

ImageOnmouseMove事件中
 if NowInImage = False then
  begin
    OldPoint.X := TImage(Sender).Left;
    OldPoint.Y := TImage(Sender).Top;
    NowInImage := True;
    NowImage := TImage(Sender);
  end
  else
  begin
    if (NowImage <> nil) and (NowImage <> TImage(Sender)) then
    begin
      NowImage := nil;
      NowInImage := False;
      Exit;
    end;
    TImage(Sender).Left := OldPoint.X - 2;
    TImage(Sender).Top := OldPoint.Y - 2;
在拥有Image的控件的ONMouseMove事件上
if NowinImage = True then
  begin
    NowInImage := False;
    if NowImage <> nil then
    begin
      NowImage.Left := OldPoint.X;
      NowImage.Top := OldPoint.Y;
    end;
  end;