delphi4arab منتديات دلفي للعرب
كيفية التعامل مع lisbox و memo - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية التعامل مع lisbox و memo (/showthread.php?tid=11791)

كيفية التعامل مع lisbox و memo - salah07230 - 01-02-2022

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

[صورة: Sans-titre.png]

RE: كيفية التعامل مع lisbox و memo - I3CT - 01-02-2022

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

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; 

[صورة: l82cDgl.gif]

حالة وضع الأوامر في حدث OnClick التابع لــ ListBox
[صورة: OikP1Kf.gif]

RE: كيفية التعامل مع lisbox و memo - salah07230 - 01-02-2022

(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; 

[صورة: l82cDgl.gif]

حالة وضع الأوامر في حدث OnClick التابع لــ ListBox
[صورة: OikP1Kf.gif]

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