Q&A

  • 현재 TPanel 의 절대위치를 알아내는 ClientToScreen 사용법?
사용법좀 갈쳐주세요..



도움말보고 .. 어떻게 해야할지 모르겠네요..

left, top, width, height..

가지고.. Tpoint형을 어떻게..







1  COMMENTS
  • Profile
    남기석 2000.11.01 10:57
    안녕하세요

    청개구리 남기석( http://www.delphitravel.com )입니다.



    procedure TForm1.Panel1Click(Sender: TObject);

    var

    pnt : TPoint;

    iLeft, iTop : integer;

    begin

    Pnt := TPanel(sender).ClientToScreen(Point(0,0));



    iLeft := Pnt.x; // Left

    iTop := Pnt.y; // Top



    showmessage( '왼쪽 : ' + inttostr( iLeft ) ', 오른쪽 : ' + inttostr( iTop ) );

    end;



    행복하세요...



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

    TfrmMnsd0000.PopUpMenuClick(Sender: TObject);



    won wrote:

    > 사용법좀 갈쳐주세요..

    >

    > 도움말보고 .. 어떻게 해야할지 모르겠네요..

    > left, top, width, height..

    > 가지고.. Tpoint형을 어떻게..

    >

    >

    >