Перемещение компонента влево-вправо

[JDel]

Как реализовать перемещение строго влево-вправо, удерживая кнопку мыши? При этом соответственно если мышь (курсор), идет влево, то и компонент должен идти влево и наоборот.

[Willer55]

Ставишь флаг на событие onMouseDown (нажатие кнопки мыши). В onMouseMove проверяешь если "у" меньше чем предыдущий тогда уменьшаешь свойство Left у компонента и если "у" больше увеличиваешь Left. Он у тебя и будет двигаться.

[phomm]

Тогда уж и OnMouseUp добавить, где снимать флаг (var flag : boolean;- объявление и flag := false;- снятие флага)

[werter13(vao73)]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
flag:=True;Xs:=X;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
flag:=False;Edit3.Text:='';
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if flag=True then
begin
Edit1.Text:=IntToStr(X);
Edit2.Text:=IntToStr(Y);
if Xs>X then
begin
Edit3.Text:='влево';
end
else
begin
Edit3.Text:='вправо';
end;
end;
Xs:=X;
end;