Q&A

  • 리치에디터에서 커서 위치 아는법좀.... ㅜ.ㅜ
리치에디터에서 현재 커서(마우스 커서 말고여...)

위치 알아내는 방법좀 알려 주세여... ㅜ.ㅜ



제발여..............................ㅜ.ㅜ

2  COMMENTS
  • Profile
    남기석 2000.10.30 04:29
    안녕하세요

    청개구리 남기석입니다.



    제가 사용하고 있는 프로시져를 하나....



    procedure TForm1.GetLineColumn(Sender: TRichEdit; var iLin: Integer; var iCol:Integer);

    var

    lLin, lCol: Longint;

    begin

    lLin := SendMessage(Sender.Handle, EM_LINEFROMCHAR, Sender.SelStart, 0);

    lCol := SendMessage(Sender.Handle, EM_LINEINDEX, lLin, 0);

    iCol := Sender.SelStart - lCol + 1;

    iLin := lLin + 1;

    end;



    이 프로시져를 리치에디터의 SelectionChange 이벤트와 기타등등..

    적당한 이벤트에서 동작시키시면 됩니다.



    procedure TForm1.RichEdit1SelectionChange(Sender: TObject);

    var

    iLin, iCol : integer;

    begin

    GetLineColumn( RichEdit1, iLin, iCol );



    Label1.Caption := inttostr( iLin );

    Label2.Caption := inttostr( iCol );

    end;



    행복하세요...



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



    초보..ㅜ.ㅜ wrote:

    > 리치에디터에서 현재 커서(마우스 커서 말고여...)

    > 위치 알아내는 방법좀 알려 주세여... ㅜ.ㅜ

    >

    > 제발여..............................ㅜ.ㅜ

  • Profile
    초보 2000.10.30 05:34
    정말 감사합니다... *^^*





    남기석 wrote:

    > 안녕하세요

    > 청개구리 남기석입니다.

    >

    > 제가 사용하고 있는 프로시져를 하나....

    >

    > procedure TForm1.GetLineColumn(Sender: TRichEdit; var iLin: Integer; var iCol:Integer);

    > var

    > lLin, lCol: Longint;

    > begin

    > lLin := SendMessage(Sender.Handle, EM_LINEFROMCHAR, Sender.SelStart, 0);

    > lCol := SendMessage(Sender.Handle, EM_LINEINDEX, lLin, 0);

    > iCol := Sender.SelStart - lCol + 1;

    > iLin := lLin + 1;

    > end;

    >

    > 이 프로시져를 리치에디터의 SelectionChange 이벤트와 기타등등..

    > 적당한 이벤트에서 동작시키시면 됩니다.

    >

    > procedure TForm1.RichEdit1SelectionChange(Sender: TObject);

    > var

    > iLin, iCol : integer;

    > begin

    > GetLineColumn( RichEdit1, iLin, iCol );

    >

    > Label1.Caption := inttostr( iLin );

    > Label2.Caption := inttostr( iCol );

    > end;

    >

    > 행복하세요...

    >

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

    >

    > 초보..ㅜ.ㅜ wrote:

    > > 리치에디터에서 현재 커서(마우스 커서 말고여...)

    > > 위치 알아내는 방법좀 알려 주세여... ㅜ.ㅜ

    > >

    > > 제발여..............................ㅜ.ㅜ