[twister0k]

Нужно, что бы кнопка убегала от курсора случайным образом(эту часть я сделал), но когда эта кнопка попадает на рядом размеценный panel, она останавливается и при нажатии на неё приложение закрывается.

[Nyctos Kasignete]

Я так полагаю, "убегание" кнопки реализовано вами в методе OnMouseMove? Ну вот и пропишите там проверку: если кнопка в пределах панели, то Exit из процедуры.

Код:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (Button1.Top > Panel1.Top) and (Button1.Top < Panel1.Top + Panel1.Height) and
     (Button1.Left > Panel1.Left) and (Button1.Left < Panel1.Left + Panel1.Width) then
        Exit;
  { Здесь ваша реализация убегания кнопки от курсора }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;

[twister0k]

Сообщение от Nyctos Kasignete

Я так полагаю, "убегание" кнопки реализовано вами в методе OnMouseMove? Ну вот и пропишите там проверку: если кнопка в пределах панели, то Exit из процедуры.

Код:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (Button1.Top > Panel1.Top) and (Button1.Top < Panel1.Top + Panel1.Height) and
     (Button1.Left > Panel1.Left) and (Button1.Left < Panel1.Left + Panel1.Width) then
        Exit;
  { Здесь ваша реализация убегания кнопки от курсора }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;

Да, "Убегание" реализировано с помощью OnMouseMove. Спасибо большое за помощь!