Memo’da Cursorun Yerini Bulma

procedure TForm1.Button1Click(Sender: TObject); var Row, Col: Integer; begin Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); Col := Memo1.SelStart – SendMessage(Memo1.Handl...