Q&A

  • 메모콤퍼넌트에서 클릭시 몇번째 라인인지 알려면?(내용무)
메모콤퍼넌트를 클릭했을때 몇번째 라인인지를 알려면 어떻게해야 합니다.

1  COMMENTS
  • Profile
    Mr.Q 2000.07.28 21:57
    호야 wrote:

    > 메모콤퍼넌트를 클릭했을때 몇번째 라인인지를 알려면 어떻게해야 합니다.var



    MemoLine, MemoCol:integer;



    implementation



    {$R *.DFM}



    procedure TForm1.GetMemoLine(memo:TCustomMemo);

    var

    LineNum,CharseBeforeLine:LongInt;

    begin

    LineNum:=SendMessage(Memo.Handle, EM_LINEFROMCHAR, Memo.SelStart, 0);

    CharseBeforeLine:=SendMessage(Memo.Handle, EM_LINEINDEX, LineNum, 0);

    MemoLine:=LineNum+1;

    MemoCol:=Memo.SelStart - CharseBeforeLine + 1;

    end;