Mega Code Archive

 

Categories / Delphi / VCL

 

Memo bileşeninde kursörün bulunduğu satır ve sutun

// Form Üzerine bir memo bileşeni ve bir button koyarak bakabilirsiniz. procedure TForm1.Button1Click(Sender: TObject); Var Row,Col :Integer; begin Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); Col := memo1.SelStart-SendMessage(Memo1.Handle, EM_LINEINDEX, Row, 0); end;