Win32API.Убегающая кнопка от мыши

[Vegas]

Срочно кто знает реализацию помогите плз.

[BOBAH13]

Срочно во фриланс бегом. Задача явно для лаб, контр, семестровых и т.п.

[VladimirVB]

Если на Delphi, то так:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i:Integer;
begin
  i:=random(4);
  case i of
    0 : Button1.Left:=Button1.Left + Button1.Width;
    1 : Button1.Left:=Button1.Left - Button1.Width;
    2 : Button1.Top:=Button1.Top + Button1.Height;
    3 : Button1.Top:=Button1.Top - Button1.Height;
  end;

  if Button1.Left<0 then Button1.Left:=0;

  if (Button1.Left+Button1.Width) > Form1.Width then
    Button1.Left:=Form1.Width-Button1.Width;

  if Button1.Top<0 then Button1.Top:=0;

  if (Button1.Top+Button1.Height) > Form1.Height then
    Button1.Top:=Form1.Height-Button1.Height;
end;