获得Memo、RichEdit的光标位置：procedure TForm1.Button1Click(Sender: TObject);var Row, Col : integer;begin Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); Col := CustEdit.SelStart - SendMessage(Memo1.Handle, EM_LINEINDEX, -1, 0); Edit1.Text:='行,列:'+IntToStr(Row)+','+IntToStr(Col);end;superyoyonc@sohu.com