일자무식 wrote:

> 마우스의 위치값을 어떻게 구합니까???

> 여기저기 뒤져봐도 도무지...

> 꼭 좀 부탁드립니다.

==================================================================

1)빈폼에 라벨을 두개 올려놓는다.

2)폼에 onMouseMove이벤트를 만든다.

3)onMouseMove이벤트에 이렇게 코딩한다.

Label1.caption := X;

Label2.caption := Y;

4)원하는 답이 아닐시엔 리플에 이렇게 단다 "뉘미뽕!~~~이다.!"

죄송합니다. 무책임한초보가...

aparadin wrote:

> 일자무식 wrote:

> > 마우스의 위치값을 어떻게 구합니까???

> > 여기저기 뒤져봐도 도무지...

> > 꼭 좀 부탁드립니다.

> ==================================================================

> 1)빈폼에 라벨을 두개 올려놓는다.

> 2)폼에 onMouseMove이벤트를 만든다.

> 3)onMouseMove이벤트에 이렇게 코딩한다.

> Label1.caption := X;

> Label2.caption := Y;

> 4)원하는 답이 아닐시엔 리플에 이렇게 단다 "뉘미뽕!~~~이다.!"

> 죄송합니다. 무책임한초보가...



흠.. 단순히 마우스 위치라 함은... ㅡㅡ;



우선 여러가지 방법이 있습니다.



스크린상에서 현재마우스 좌표를 알아오는 예제

procedure TForm1.Button1Click(Sender: TObject);

var

Pt : TPoint;

begin

GetCursorPos( Pt );

ShowMessage( IntToStr( Pt.X ) + ',' + IntToStr( Pt.Y ) );

end;



mousemove나 mousedown등 좌표를 제공하는 메소드를 이용하지 않고

컨트롤에서의 마우스위치 알아보는 예제



procedure TForm1.Panel1Click(Sender: TObject);

var

Pt : TPoint;

begin

GetCursorPos( Pt );

Pt := Panel1.ScreenToClient( Pt );

ShowMessage( IntToStr( Pt.X ) + ',' + IntToStr( Pt.Y ) );

end;



도움이 되셨으리라...

내용없음....