배꼽 wrote:

> 게시판의 글을 쭉~~~ 읽어 보니요.

> 버튼을 실시간으로 움직일 수 있는 것이 있더라고요.

> 이걸 이미지 컨트롤에 적용하니 되질 않네요.

> 전혀 움직이지 않아서요.

> 이거 어떻게 이미지 컨트롤을 드래깅 할 방법 없나요?



구창민입니다.

아래는 일전에 예제를 만들어본 이미지컴포넌트를 실행시

마우스로 이동시키는 간단한 소스입니다.

그럼, 즐거운 프로그래밍 하세요~



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls;



type

TForm1 = class(TForm)

Image1: TImage;

procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

MouseDownSpot : TPoint;

Capturing : bool;



implementation



{$R *.DFM}



procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

SetCapture(longint(Image1));

Capturing := true;

MouseDownSpot.X := x;

MouseDownSpot.Y := Y;

end;



procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

Capturing := false;

Image1.Left := Image1.Left - (MouseDownSpot.x - x);

Image1.Top := Image1.Top - (MouseDownSpot.y - y);

end;



procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Capturing then begin

Image1.Left := Image1.Left - (MouseDownSpot.x - x);

Image1.Top := Image1.Top - (MouseDownSpot.y - y);

end;

end;



end.