Memo

Question

Ola pessoal,Algu�m sabe como fa�o para saber qual o n�mero da linha em que o memo esta posicionado?Abra�o, Ricardo...

Arc · Answer

na uses do form declare Memosincluir 1 memo (name = Memo1) , 1 button (name = Button1) e um Panel (Name = Panel1)no evento onclick do Button1var   MemoLine,  MemoCol:        Integer;begin  GetMemoLineCol(Memo1, MemoLine, MemoCol);  Panel1.Caption := �Line: � + IntToStr(MemoLine) +                    � Col: � + IntToStr(MemoCol);end;Memoline --> linha atual do memo1MemoCol --> coluna atual do memo1...

Ricardo_ascii · Answer

Ola meu amigo,Primeiramente obrigado pelo retorno. Estou tentando fazer o procedimento e ele me da um erro de memos.dcu. N�o acho esse arquivo. Sabe me dizer algo a respeito?abra�o[quote:b148a1c2d1=�arc�]na uses do form declare Memosincluir 1 memo (name = Memo1) , 1 button (name = Button1) e um Panel (Name = Panel1)no evento onclick do Button1var   MemoLine,  MemoCol:        Integer;begin  GetMemoLineCol(Memo1, MemoLine, MemoCol);  Panel1.Caption := �Line: � + IntToStr(MemoLine) +                    � Col: � + IntToStr(MemoCol);end;Memoline --> linha atual do memo1MemoCol --> coluna atual do memo1[/quote:b148a1c2d1]...

Marco Salles · Answer

nunca vi na VCL do delphi (ate o delphi 7.0) nenhum recurso para isto

Uma solu��o � recorrer as mensagens do Windows ....

ent�o vamos l� :

function GetMemoLin(Const Memo:Tmemo):integer;
 begin
  result:=SendMessage ( 
                   Memo.Handle, EM_LINEFROMCHAR,Memo.SelStart, 0);
end;

Para Chamar � so passar o Memo como par�mero:

exemplo:

Showmessage(IntToStr(GetMemoLin(Memo1)));

espero ter sido �til..

Ricardo_ascii · Answer

[quote:9a1901caeb=�Marco Salles�]nunca vi na VCL do delphi (ate o delphi 7.0) nenhum recurso para isto

Uma solu��o � recorrer as mensagens do Windows ....

ent�o vamos l� :

function GetMemoLin(Const Memo:Tmemo):integer;
 begin
  result:=SendMessage ( 
                   Memo.Handle, EM_LINEFROMCHAR,Memo.SelStart, 0);
end;

Para Chamar � so passar o Memo como par�mero:

exemplo:

Showmessage(IntToStr(GetMemoLin(Memo1)));

espero ter sido �til..[/quote:9a1901caeb]

Oi Marco tudo bem?

Muito obrigado pela dica. Deu certinho! Valeu mesmo. Precisando estamos a�.

abra�o, Ricardo

F�rum Memo #353995