delphi4arab منتديات دلفي للعرب

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

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




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

(01-02-2022, 01:35 PM)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

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