خط انتخاب شده Memo

سلام
چطوری میشه فهمید چه خطی از Memo انتخاب شده
و این خط چه متنی رو داره (محتویاتش این خط چیه)
ممنون

نقل قول:

---

نوشته شده توسط mahdi bg [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
چطوری میشه فهمید چه خطی از Memo انتخاب شده
و این خط چه متنی رو داره (محتویاتش این خط چیه)
ممنون

---

سلام
يكي از راهها :

کد:

---

procedure TForm1.Memo1Click(Sender: TObject);
var
  Line: Integer;
begin
  with (Sender as TMemo) do
  begin
    Line      := Perform(EM_LINEFROMCHAR, SelStart, 0);
    Label1.Caption := inttostr(line);
    Label2.Caption := Memo1.Lines.Strings[Line];
  end;
end;

---

سلام

نقل قول:

---

نوشته شده توسط NoneForce [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
يكي از راهها :

کد:

---

procedure TForm1.Memo1Click(Sender: TObject);
var
  Line: Integer;
begin
  with (Sender as TMemo) do
  begin
    Line      := Perform(EM_LINEFROMCHAR, SelStart, 0);
    Label1.Caption := inttostr(line);
    Label2.Caption := Memo1.Lines.Strings[Line];
  end;
end;

---

---

خیلی ممنون