existe algum jeito de mover um componente com o mouse?

Question

eu queria colocar um componente ex um panel sei la.. onde qndo eu clickasse nele eu pudesse arrastar ele pra onde quiser....se for panel melhor ... pra poder colocar coisas nele ex botoes dentro de um...

Emerson Nascimento · Answer

acho que esse exemplo pode te ajudar:crie os tr�s procedimentos abaixo e aponte os eventos OnMouseDown, OnMouseMove e OnMouseUp de todos os componentes que precisam ser movidos em run-time para a respectiva procedure.[code:1:d99bf1e7bc]// Evento OnMouseDownprocedure TForm1.ComponenteMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin  if ssCtrl in Shift then    try      SetCapture(TWinControl(Sender).Handle);      Capturing := true;      MouseDownSpot.X := x;      MouseDownSpot.Y := Y;    except    end;end;// Evento OnMouseMoveprocedure TForm1.ComponenteMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin  if Capturing then    try      TWinControl(Sender).Left:= TWinControl(Sender).Left - (MouseDownSpot.x-x);      TWinControl(Sender).Top:= TWinControl(Sender).Top - (MouseDownSpot.y-y);    except    end;end;// Evento OnMouseUpprocedure TForm1.ComponenteMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin  if Capturing then  begin    ReleaseCapture;    Capturing := false;    try      TWinControl(Sender).Left := TWinControl(Sender).Left - (MouseDownSpot.x -x);      TWinControl(Sender).Top := TWinControl(Sender).Top - (MouseDownSpot.y - y);    except    end;  end;end;[/code:1:d99bf1e7bc]...

Emerson Nascimento · Answer

esqueci de mencionar:� preciso segurar o CTRL e clicar no componente para poder moviment�-lo....

Salsa · Answer

a variavel MouseDownSpot eh q tipo de variavel?eu declaro como?...

Dedi · Answer

veja nesta pagina: [url]//www.forumweb.com.br/foruns/index.php?showtopic=15069&mode=linearplus[/url]...

Emerson Nascimento · Answer

declare na se��o private do form:MouseDownSpot : TPoint;Capturing : bool;...

Salsa · Answer

no meu nao rolou nao esse eskema de arrastar e fiz igualzinho os exemplos :( tento arrastar com o mouse ou sem o mouse como no ex do link e nada :/...

Weber · Answer

Se for s� pra mover usando o mouse t� ai:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  TWinControl(Sender).perform(WM_SYSCOMMAND, $f012, 0);
end;

Salsa · Answer

valeu weber esse funcionou legal... brigadao :)...

Marco Salles · Answer

no meu caso deu das duas maneirasTalves voce deva ter esquecido de fazer isto:[quote:16c5365cf4]crie os tr�s procedimentos abaixo e aponte os eventos OnMouseDown, OnMouseMove e OnMouseUp de todos os componentes [/quote:16c5365cf4]mas sem d�vida que o codigo que o weber sugeriu � mais enxuto...

Salsa · Answer

aproveitando a fun�ao to tentando fazer o seguinte....

eu to movimentando o panel com o mouse como weber explicou ... blz....
agora coloquei um botao do lado do panel.. pra qndo eu arrastar o botao ir junto... como se tivesse grudado sabe... mas nao to conseguindo fazer direito...

aqui eu arrasto e soh qndo solto o meu panel q o botao vai pra posi�ao...
queria q ele arrastasse junto tb :)

o jeito q nao tah dando certo eh esse:

ReleaseCapture;
TWinControl(Sender).perform(WM_SYSCOMMAND, $f012, 0);
Botao.Left := TWinControl(Sender).Left + TWinControl(Sender).Width;
Botao.Top := TWinControl(Sender).Top;

alguem ae pode me dar um help pra fazer isso? :)

valeu!!!!

:p

Salsa · Answer

jah tentei colocar um Application.ProcessMessage tb e nada..ninguem ae sabe como posso mover o panel e o botao como se eles tivessem grudados?valeu :P...