• Yeni Üyelik
  •     
  • K.Adı yada E-Posta :
  •      
  •      
End of Article
27 HAZİRAN

DELPHI - 7 - Memo'da Cursorun Yerini Bulma

0 Yorum
Ekleyen: seasparrow 27 Haziran 2005 Okunma: 575
27 Haziran 2005
Yazdır

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);
Label1.caption := 'Row= ' + IntToStr(Row+1) + ' Col= ' + IntToStr(Col+1);
end;