i:=currpos.x;
k:=currpos.y;
with r do
begin
left:=200;
top:=200;
right:=400;
bottom:=300;
end;
보시면 아시겠지만엽 요건 아까 제가 질문한 내용 하구 같이 할려구 구상 했던 것
임당.... 흠.....헐 힌트 박슬 마우스 포인트 바로 밑에 나타 낼려구엽 클릭 이벤트
에서 흠 거의 다 구현이 되가는디엽 박스의 크기와 위치를 나타내는게 힘듬당...
저 바부줘 헐....ㅠ.ㅠ 싸부 이 덜떨어진 제잘 위해서 고견 한말씀을.....
>
>
> i:=currpos.x;
> k:=currpos.y;
> with r do
> begin
> left:=200;
> top:=200;
> right:=400;
> bottom:=300;
> end;
>
>
> 보시면 아시겠지만엽 요건 아까 제가 질문한 내용 하구 같이 할려구 구상 했던 것
>
> 임당.... 흠.....헐 힌트 박슬 마우스 포인트 바로 밑에 나타 낼려구엽 클릭 이벤트
>
> 에서 흠 거의 다 구현이 되가는디엽 박스의 크기와 위치를 나타내는게 힘듬당...
>
> 저 바부줘 헐....ㅠ.ㅠ 싸부 이 덜떨어진 제잘 위해서 고견 한말씀을.....
>
구창민입니다.
마우스 위치에 힌트가 나타나게 하고 싶으시다는 거죠?
대략 이런 형태면 됩니다. 좋게 고쳐 쓰세요.
var
R: TRect;
Pos: TPoint;
begin
GetCursorPos(Pos); //마우스의 현 좌표를 얻는다.
//힌트의 크기를 대략 정한다.
R.Top := Pos.y;
R.Left:= Pos.x;
R.Bottom:= Pos.y + 100;
R.Right:= Pos.x + 100;
P.S : 사발우성님 전 제자를 둘 만한 그릇이 못 됩니다. 저도 아마추어 랍니다.
죄송합니다. ^^ 항상 즐거운 프로그래밍 하세요~