Как перемещать label с помощью мыши?

[Лукманов Александр]

Как перемещать label с помощью мыши? Попробовал сделать как с Image (присваивать значение координат label координатам мыши) не получается.

Подскажите кто может, плиз.

[Levsha100]

Заведите логическую переменку, и при нажатии на label присваивайте true, а при отпускании false. Далее надо завести еще 2 MouseX и MouseY и при перемещении мыши их обновлять, и заодно если первая переменка =true, то двигать label .

[Лукманов Александр]

Так вроде и делаю. Но не работает. Может ошибка.

x0, x1: Integer;
move: Boolean;


procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
x0:=x;
x1:=y;
end;


procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Move then

begin

with label1 do
begin
left:=left+x-x0;
top:= top+y-x1;

x0:= x;
x1:= y;
end;

end;


procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

move:= False;

end;

[Levsha100]

Вы забыли прописать

move:= True;

в

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
x0:=x;
x1:=y;
end;

P.S.Мне кажется что сам label перемещать неудобно, можно его поместить в панельку, например.

[Лукманов Александр]

Спасибо. Щас всё работает. Правда очень не красиво перемещается. Label не успевает за мышью, сильно отстаёт.

P.S.Мне кажется что сам label перемещать неудобно, можно его поместить в панельку, например.

Такой вариант не подходит. Label должен быть прозрачным.

[Пепел Феникса]

черт, опоздал я

[Niarb]

а не красиво перемещается и отстает от мыши все потому, что вы используете непосредственные координаты на Label1. Если сильне двинуть в сторону мышью, то Label вслед может и не сдвинуться. Лучше использовать следующее:

  mov: boolean=false;
  p: TPoint;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var dx, dy: integer;
      dp: TPoint;
begin
   if not mov then
      exit;
   dp:=label1.ScreenToClient(mouse.CursorPos);
   dx:=p.X-dp.X;
   dy:=p.Y-dp.Y;
   label1.Left:=Label1.Left-dx;
   label1.Top:=Label1.Top-dy;
   p:=label1.ScreenToClient(mouse.CursorPos);
end;

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   mov:=true;
   p:=label1.ScreenToClient(mouse.CursorPos);
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   mov:=false;
end;

[VVM]

Если бы не это:

Такой вариант не подходит. Label должен быть прозрачным.

То можно было бы поступить малость экзотично, кинув Label на Panel (как уже было предложено), а потом сделать так:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Panel1.Perform(WM_SysCommand, $F012, 0);
end;

[JTG]

У TStaticText есть хэндл, но прозрачность не пашет (вернее при включённой прозрачности цвет просто меняется на цвет родительского контрола)

procedure TForm1.StaticText1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
(sender as TStaticText).Perform(WM_SysCommand, $F012, 0);
end;

[Yandex]

Кинул на форму ещё tStaticText(=ST).visible=false
В onMouseDown() от Label прописал:

ST.(x,y,w,h,font,caption) := Label;
ST.visible := true;
ReleaseCapture;
ST.perform(WM_SysCommand, SC_DragMove, 0);

в onMouseMove() от ST прописал:

Label.(x,y) := ST;
ST.visible := false;

Вышло не дурно! ))