메모컴포넌트에서 커서위치의 라인을 알아내거나 설정하는 방법입니다.

홍세비님의 홈에서 긁어온 내용입니다.



[Q17] TMemo에서 cursor가 있는 line 번호를 알수 있습니까 ?

[A17] EM_LINEFROMCHAR, EM_LINEINDEX 라는 Windows 메세지를 사용하여 알 수 있습니다.



procedure GetMemoLine(Memo : TCustomMemo; var MemoLine, MemoCol : integer ) ;

var

LineNum : Longint;

CharsBeforeLine : Longint;

begin

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

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

MemoLine := LineNum + 1;

MemoCol := Memo.SelStart - CharsBeforeLine + 1;

end;



procedure SetMemoLine(Memo : TCustomMemo; MemoLine, MemoCol : integer ) ;

begin

Memo.SelStart := SendMessage(Memo.Handle,EM_LINEINDEX,MemoLine-1,0)+MemoCol-1 ;

end ;



만약...이것보다 더 자세한 내용을 알고싶으시다면 이곳 자료실에 한번 살펴보세요

에디터 컴포넌트들이 있을껍니다.

필요한 내용을 보시고 첨가하시거나 아님 원하시는 형태로 작성하시면 되겠죠.



즐코 되시길..





쩌비 wrote:

> 일반 에디터처럼 찾기 와 특정 라인번호로 화면을 스크롤해야 하거든요

>

> 쩝.. 어떻게 하면 될까요..

회색도시 wrote:

> 메모컴포넌트에서 커서위치의 라인을 알아내거나 설정하는 방법입니다.

> 홍세비님의 홈에서 긁어온 내용입니다.

>

> [Q17] TMemo에서 cursor가 있는 line 번호를 알수 있습니까 ?

> [A17] EM_LINEFROMCHAR, EM_LINEINDEX 라는 Windows 메세지를 사용하여 알 수 있습니다.

>

> procedure GetMemoLine(Memo : TCustomMemo; var MemoLine, MemoCol : integer ) ;

> var

> LineNum : Longint;

> CharsBeforeLine : Longint;

> begin

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

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

> MemoLine := LineNum + 1;

> MemoCol := Memo.SelStart - CharsBeforeLine + 1;

> end;

>

> procedure SetMemoLine(Memo : TCustomMemo; MemoLine, MemoCol : integer ) ;

> begin

> Memo.SelStart := SendMessage(Memo.Handle,EM_LINEINDEX,MemoLine-1,0)+MemoCol-1 ;

> end ;

>

> 만약...이것보다 더 자세한 내용을 알고싶으시다면 이곳 자료실에 한번 살펴보세요

> 에디터 컴포넌트들이 있을껍니다.

> 필요한 내용을 보시고 첨가하시거나 아님 원하시는 형태로 작성하시면 되겠죠.

>

> 즐코 되시길..

>

>

> 쩌비 wrote:

> > 일반 에디터처럼 찾기 와 특정 라인번호로 화면을 스크롤해야 하거든요

> >

> > 쩝.. 어떻게 하면 될까요..