在RichEdit的OnSelectionChange事件處理過程中加入適當的代碼可以實時地獲得當前光標位置，示例如下： 

procedure TForm1.RichEdit1SelectionChange(Sender: TObject); 
var 
X, Y: LongInt; 
begin 
Y := SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR, 
RichEdit1.SelStart, 0); 
X := RichEdit1.SelStart - 
SendMessage(RichEdit1.Handle, EM_LINEINDEX, Y, 0); 
Inc(Y); // 光標的行號 
Inc(X); // 光標的列號 
end;