귀염뎅이 께서 말씀하시기를...

> 안녕하세요.

> 델파이 초보입니다.

> 애플리케이션 실행간에 object( button이나 panel 등 )을

> 마우스로 move시키는 방법과 이동되는 object의

> 위치(x,y좌표)를 추적/ 표시 하고 싶거든요.

> 많은 분들의 도움 부탁드립니다.

> 더운날씨에 건강 조심하시고 안녕히 계세요. ^^



unit Unit1;



interface



uses

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

StdCtrls, ExtCtrls;



type

TForm1 = class(TForm)

Panel1: TPanel;

L_Left: TLabel;

L_Top: TLabel;

L_Width: TLabel;

L_Height: TLabel;

procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

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

Y: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;



const

SC_DRAGMOVE = $F012;

SC_RIGHT_BOTTOM = $F008;

SC_LEFT_BOTTOM = $F007;

SC_BOTTOM = $F006;

SC_RIGHT_TOP = $F005;

SC_LEFT_TOP = $F004;

SC_TOP = $F003;

SC_LEFT = $F001;

SC_RIGHT = $F002;



var

Form1: TForm1;

SC_COMMAND: Word;



implementation

{$R *.DFM}



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

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;



with Panel1 do

begin

if x < 5 then

begin

if y < 5 then

begin

Panel1.Cursor := crSizeNWSE;

SC_COMMAND := SC_LEFT_TOP;

end

else if y > height-5 then

begin

Panel1.Cursor := crSizeNESW;

SC_COMMAND := SC_LEFT_BOTTOM;

end

else

begin

Panel1.Cursor := crSizeWE;

SC_COMMAND := SC_LEFT;

end;

end

else if x > width-5 then

begin

if y < 5 then

begin

Panel1.Cursor := crSizeNESW;

SC_COMMAND := SC_RIGHT_TOP;

end

else if y > height-5 then

begin

Panel1.Cursor := crSizeNWSE;

SC_COMMAND := SC_RIGHT_BOTTOM;

end

else

begin

Panel1.Cursor := crSizeWE;

SC_COMMAND := SC_RIGHT;

end;

end

else

begin

if y < 5 then

begin

Panel1.Cursor := crSizeNS;

SC_COMMAND := SC_TOP;

end

else if y > height-5 then

begin

Panel1.Cursor := crSizeNS;

SC_COMMAND := SC_BOTTOM;

end

else

begin

Panel1.Cursor := crDefault;

SC_COMMAND := SC_DRAGMOVE;

end;

end;

end;



Panel1.Perform(WM_SysCommand, SC_Command, 0);

end;



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

Y: Integer);

begin

with Panel1 do

begin

if x < 5 then

begin

if y < 5 then

begin

Panel1.Cursor := crSizeNWSE;

end

else if y > height-5 then

begin

Panel1.Cursor := crSizeNESW;

end

else

begin

Panel1.Cursor := crSizeWE;

end;

end

else if x > width-5 then

begin

if y < 5 then

begin

Panel1.Cursor := crSizeNESW;

end

else if y > height-5 then

begin

Panel1.Cursor := crSizeNWSE;

end

else

begin

Panel1.Cursor := crSizeWE;

end;

end

else

begin

if y < 5 then

begin

Panel1.Cursor := crSizeNS;

end

else if y > height-5 then

begin

Panel1.Cursor := crSizeNS;

end

else

begin

Panel1.Cursor := crDefault;

end;

end;



// 위치와 크기 표시

L_Left.Caption := IntToStr(Left);

L_Top.Caption := IntToStr(Top);

L_Width.Caption := IntToStr(Width);

L_Height.Caption := IntToStr(Height);

end;

end;



end.