이은주 wrote:

> 안녕하세요..

> 마우스로 일정한 범위를 지정한 다음 그 좌표안의 윈도우 그림을 하드카피(SnapShot)

> 할려고 합니다..

> 그런데.. 마우스에서 좌표를 어떻게 해야할지 모르겠습니다.

> 마우스를 클어다 놓고 클릭을 하면 처음부터 현재까지 마우스로 지정했던 범위를

> 판단해야 하는데.. Form Event에서는 실행이 안되더군요..

> 어떻게 해야 하는지요???

> 자세한 방법 부탁드립니다.



간단한 예제입니다.

도움이 될런지요

implementation



var

A, B, C, D : Integer;



{$R *.DFM}



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

Shift: TShiftState; X, Y: Integer);

begin

C := X;

D := Y;

Edit1.Text := IntToStr(A)+ ',' + IntToStr(B);

Edit2.Text := IntToStr(C)+ ',' + IntToStr(D);

end;



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

Shift: TShiftState; X, Y: Integer);

begin

A := X;

B := Y;

end;