김학열 wrote:

> Memo 폼포넌트의 문자열에서

>

> 현재 커서가 있는 위치의 행과 열의 위치를 알수있는 방법좀

>

> 부탁합니다.



안녕하세요..

델파이세상(http://www.freechal.com/delphi)에 최석기입니다..



마침 제가 님이 원하는 소스를 가지고 있네요..

참고하세요..



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls;



type

TForm1 = class(TForm)

Memo1: TMemo;

Panel1: TPanel;

Panel2: TPanel;

procedure Memo1Change(Sender: TObject);

procedure Memo1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Memo1Change(Sender: TObject);

var

CurrentLine : Integer;

ColNum : Integer;

begin

CurrentLine :=SendMessage(Memo1.Handle,

EM_LINEFROMCHAR,Memo1.SelStart, 0) ;



ColNum := Memo1.SelStart-SendMessage(Memo1.Handle,

EM_LINEINDEX,CurrentLine, 0) + 1;



Panel1.Caption := '행 : ' + IntToStr(CurrentLine);

Panel2.Caption := '열 : ' + IntToStr(ColNum);



end;



procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

Memo1Change( Sender );

end;



end.