[SantaHim]

помогите двигать кнопку. есть код, но условия перекрываются. как сделать так чтобы они не перекрывались?
кнопка двигается вниз и влево. нужно сделать так, чтобы она двигалась еще вверх и вправо.

пожалуйста помогите!

ответы с кодом скидывайте на мыло, если не трудно: SantaHim@gmail.com

мой код:

Код:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   begin
          if (x>btn17.Left) and (x<(btn17.Left+btn17.Width)) and (y>btn17.top-5) then
       begin
         btn17.top:=btn17.top+1;
       end;

          if (y>btn17.Top)and (y<btn17.Top+btn17.Height) and (x>btn17.Left-5) then
        begin
          btn17.left:=btn17.left+1;
        end;

   end;

  begin
    if  (y>btn17.Top)and (y<btn17.Top+btn17.Height) and (x>btn17.Left+btn17.Width+5)

    then btn17.left:=btn17.left-1;

    if (x>btn17.Left) and (x<(btn17.Left+btn17.Width)) and (y>btn17.top+btn17.Height+5)

    then btn17.top:=btn17.top-1;
  end;
end;

Админ: Пользуемся тегами для оформления кода!

[Alegun]

Может так проще будет

Код:

var
 flg    : boolean;
 mX, mY : integer;

procedure TForm1.Button1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if ssCtrl in Shift then
  begin
   SetCapture(Button1.Handle);
   flg:= true;
   mX := X;
   mY := Y;
  end;
end;

procedure TForm1.Button1MouseMove(Sender: TObject;
Shift: TShiftState; X,  Y: Integer);
begin
 if flg then
  begin
   Button1.Left := Button1.Left - (mX - X);
   Button1.Top  := Button1.Top  - (mY - Y);
  end;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button:
   TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if flg then
  begin
   ReleaseCapture;
   flg:= false;
   Button1.Left := Button1.Left - (mX - X);
   Button1.Top  := Button1.Top  - (mY - Y);
  end;
end;

надо сначала нажать Ctrl на клаве, а потом двигать кнопку.

[SantaHim]

вся соль в том чтобы двигалась она в процедуре
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);


иначе нельзя

[M.A.D.M.A.N.]

Очередной кандидат в двухдневный бан.

[SantaHim]

за что? я конечно ньюфаг и многого еще не знаю, но все-таки?

[Alegun]

Интересно, а как вы на эту кнопку нажимать собираетесь, если она всё время будет убегать от мышки, может тогда нужно позиционирование на середину компонента? Да и конфликт наблюдается, противоречие при перемещении, здесь или вверх можно двигать или вниз, вместе скорее всего не получится, либо тогда определять с какой стороны мыша подкралась.

[seeman_tm]

Тебе надо что-то типа такого ?
Кнопка преследующая мышку или надо наоборот ?

Код:

procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var XButtonCenter, YButtonCenter: Integer;
begin
  XButtonCenter := btn17.Left + (Btn17.Width div 2);
  YButtonCenter := btn17.Top + (Btn17.Height div 2);
  if XButtonCenter > X then btn17.Left := btn17.Left - 1;
  if XButtonCenter < X then btn17.Left := btn17.Left + 1;
  if YButtonCenter > Y then btn17.Top := btn17.Top - 1;
  if YButtonCenter < Y then btn17.Top := btn17.Top + 1;
  Form3.Caption := 'mx:= '+IntToStr(X)+'  my:= '+ IntToStr(Y)+ '  bx:= '+IntToStr(btn17.left)+'  by:= '+ IntToStr(btn17.Top);
end;

В данной реализации, 1 это минимальная скорость перемещения кнопки.
Но если по колдовать, можно сделать скорость на порядки ниже.

[Alegun]

Сообщение от SantaHim

за что?..

Смотрите вот это, пункт 2.4

[M.A.D.M.A.N.]

Сообщение от SantaHim

за что? я конечно ньюфаг и многого еще не знаю, но все-таки?

За название темы.