TImage - Arrastar pelo form

Question

Estou tentando mover um TImage pelo form e quase d� certo, � q fica meio estranho eu consigo arrastar s� q n�o consigo deixar o componente exatamente no ponto q eu quero quando solto o mouse, ser� q f...

Beppe · Answer

V� se isso resolve:[code:1:9cb5dab675]Image1.Left := X - (ScreenToClient(Mouse.CursorPos).X - Image1.Left);Image1.Top := Y - (ScreenToClient(Mouse.CursorPos).Y - Image1.Top);[/code:1:9cb5dab675]...

Janete · Answer

[quote:a1fb549d16=�Beppe�]V� se isso resolve:[code:1:a1fb549d16]Image1.Left := X - (ScreenToClient(Mouse.CursorPos).X - Image1.Left);Image1.Top := Y - (ScreenToClient(Mouse.CursorPos).Y - Image1.Top);[/code:1:a1fb549d16][/quote:a1fb549d16]Obrigado pela sugest�o, mas n�o deu certo...

Ipc$ · Answer

N�o sei se resolve seu problema, mas esse c�digo arrasta p/ qualquer lugar do Form e se vc quiser delimitar a �rea de arrasto, vc implementa no c�digo. Desabilite os eventos de Drag.

var ClicouNaImagem:Boolean; iLeft,iTop:Integer;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button <> mbLeft then
    Exit;
  ClicouNaImagem := true;
  iLeft := Mouse.CursorPos.x;
  iTop  := Mouse.CursorPos.y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not ClicouNaImagem then
    Exit;
  Image1.Left := Image1.Left - iLeft + Mouse.CursorPos.x;
  Image1.Top  := Image1.Top  - iTop  + Mouse.CursorPos.y;
  iLeft       := Mouse.CursorPos.x;
  iTop        := Mouse.CursorPos.y;
end;

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

Janete · Answer

[quote:e89cd80487=�IPC$�]N�o sei se resolve seu problema, mas esse c�digo arrasta p/ qualquer lugar do Form e se vc quiser delimitar a �rea de arrasto, vc implementa no c�digo. Desabilite os eventos de Drag.

var ClicouNaImagem:Boolean; iLeft,iTop:Integer;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button <> mbLeft then
    Exit;
  ClicouNaImagem := true;
  iLeft := Mouse.CursorPos.x;
  iTop  := Mouse.CursorPos.y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not ClicouNaImagem then
    Exit;
  Image1.Left := Image1.Left - iLeft + Mouse.CursorPos.x;
  Image1.Top  := Image1.Top  - iTop  + Mouse.CursorPos.y;
  iLeft       := Mouse.CursorPos.x;
  iTop        := Mouse.CursorPos.y;
end;

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

[/quote:e89cd80487]

Blz, deu certinho obrigado, agora eu n�o consegui implementar no c�digo a �rea de arrasto q seria um panel, vc pode me dar mais uma m�ozinha? :D

Ipc$ · Answer

A imagem j� est� no Panel ou n�o?Se n�o estiver � s� setar a propriedade Parent do TImage p/ TPanel do Panel que automaticamente vc s� consegue arrastar dentro dele....

Janete · Answer

[quote:19a5342c67=�IPC$�]A imagem j� est� no Panel ou n�o?
Se n�o estiver � s� setar a propriedade Parent do TImage p/ TPanel do Panel que automaticamente vc s� consegue arrastar dentro dele.[/quote:19a5342c67]

Desculpe, mas eu n�o consegui achar a propriedade Parent do TImage s� tem ParentShowHint. ???

Ipc$ · Answer

A propriedade Parent � descendente de TControl e n�o aparece no Object Inspector; vc tem que set�-la via c�digo ou colocar o TImage no TPanel em tempo de projeto....