كيفية التعامل مع lisbox و memo

[salah07230]

السلام عليكم
عندي هذا المشروع كما هو مبين في الصورة
اريد حين انقر على اي اسم في listbox يقابله لقبه في memo1
و edit1 تجلب اللقب من memo1
وشكرا

[I3CT]

و عليكم السلام و رحمة الله

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SetFocus;
  Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, ListBox1.ItemIndex, 0);
  Memo1.SelLength := Length(Memo1.Lines[ListBox1.ItemIndex]);
  Edit1.Text := Memo1.Lines.Strings[ListBox1.ItemIndex];
end; 


حالة وضع الأوامر في حدث OnClick التابع لــ ListBox

[salah07230]

و عليكم السلام و رحمة الله

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SetFocus;
  Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, ListBox1.ItemIndex, 0);
  Memo1.SelLength := Length(Memo1.Lines[ListBox1.ItemIndex]);
  Edit1.Text := Memo1.Lines.Strings[ListBox1.ItemIndex];
end; 


حالة وضع الأوامر في حدث OnClick التابع لــ ListBox

بارك الله فيك اخي العزيز ربي يحفضك الف شكرا وتحياتي لك.