(Resolvido) Arrasto de Componente

[JPMADEIRA]

olá boa tarde, estou com mais uma duvida que não estou conseguindo resolver, por exemplo tenho um Panel e um Timage no form,  o panel está em baixo e o Timage em cima, aonde no timage tenho uma imagem personalizada então queria que o cursor passava por cima do timage e arrastava o panel que está em baixo, tenho esse código mas ele só funciona direto no panel, tem alguma forma de adaptar ele para usar da forma que gostaria? obrigado

procedure TFRM_IMAGEM.ControlMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FDownX := X;
FDownY := Y;
FDragging := True;
TMoveCracker(Sender).MouseCapture := True;
end;

procedure TFRM_IMAGEM.ControlMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if FDragging then
with Sender as TControl do
begin
Left := X - FDownX + Left;
Top := Y - FDownY + Top;
end;
end;

procedure TFRM_IMAGEM.ControlMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if FDragging then
begin
FDragging := False;
TMoveCracker(Sender).MouseCapture := False;
end;
end;

 

Editado Agosto 21, 2018 por JPMADEIRA

[Jhonas]

não entendi direito ...  voce usa um panel em baixo do TImage ( tipo uma placa com o nome da Imagem ? )

[JPMADEIRA]

acabei fazendo uma mudança vou reformular a pergunta, tipo tenho um panel dentro desse panel tenho um TImage1 e TImage2, o panel é para limitar o tamanho da TImage... então o TImage2 fica fixo enquanto e o TImage1 fica livre para ser arrastado dentro do panel, só que preciso que quando o mouse passar por cima do TImage2, o TImage1 que faz o arrasto;

exemplo: tipo no onmousedown do TImage2 eu coloco o seguinte código:

image1.left:=x;
imagr1.top:=y;

então ficaria: Panel (limita o tamanho) > image1 (será arrastado) > image2 (será fixo)

aquele código que postei funciona em partes, só que precisava trocar o Sender por image1, tentei fazer mas não deu certo.

descupe a pergunta pode ser meia tosca, mas eu pesquisei bastante e tentei de varias formas para achar uma solução e não consegui ai recorri ao fórum..

obrigado...

[Jhonas]

Se voce quiser deixar fixo um TImage1, basta colocar um valor fixo na propriedade  Heigth e Width ....  e na propriedade Autosize como False

dessa maneira voce não precisa usar o Panel

exemplo: tipo no onmousedown do TImage2 eu coloco o seguinte código:

image1.left:=x;
image1.top:=y;

coloque esse código no OnMouseMove do TImage2

abraço

[JPMADEIRA]

assim desse jeito o timage ele segue o ponteiro do mouse, eu não quero que ele segue quero que clique arraste e depois solte, e ele fique aonde eu soltei.. como arrastar um ícone na área de trabalho

[Jhonas]

Agora entendi o que voce esta querendo... é fazer um Drag and Drop em um TImage

veja esses exemplos ...  se não conseguir resolver, vejo um código simples para voce

https://www.google.com.br/search?ei=ch08W8mrB8iEwgS6mav4Bw&q=drag+and+drop+image+example+delphi&o que=drag+and+drop+image+example+delphi&gs_l=psy-ab.3..33i22i29i30k1l5.4281.7614.0.9400.7.7.0.0.0.0.360.854.0j4j0j1.5.0....0...1c.1.64.psy-ab..2.5.851...0i22i30k1.0.uspT4imDZvM

OBS: No 1º e no 2º link tem um exemplo que voce vai poder usar no seu projeto

abraço