Q&A

  • 좌표를 화면좌표로변환
예를 들면

폼위에 있는 버튼의 Top나 Left 값을

전체 화면에서 의 좌표값으로 바꿀수 없나요.

현재 하는 방법은

L= 폼.Left+ 버튼.Left + 상수....  이런 무식한 방법을 쓰구 있는데..


버튼 밑에 판넬이나 뭐 이런 것이 오면 식이 무징장 길어 지네요..

간단하게 전체좌표로 바꾸는 함수같은거 업나요..

2  COMMENTS
  • Profile
    홍성락 2002.02.22 05:49

    /////////////////////////////////////////////////////////////////
    이렇게 한번해보세요.
    procedure TForm1.Button2Click(Sender: TObject);
    var
        Point: TPoint;
    begin
        Point.x := Button1.ClientOrigin.x;
        Point.y := Button1.ClientOrigin.y;
        showmessage(intToStr(Form1.ScreenToClient(Point).x));
    end;
  • Profile
    우소 2002.02.22 07:59