Código Delphi [-] procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin label1.caption:=IntToStr(TCustomMemo(memo1).CaretPos.y); end;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin label1.caption:=IntToStr(TCustomMemo(memo1).CaretPos.y); end;