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

بسم الله والحمد لله والصلاة والسلام على رسول الله وبعد
الى الاخوة في هذا المنتدى الطيب
لدينا مثال يحوي ثلاثة فورم مع مكون treeview في الفورم الرئيسي
ماهو الكود المستعمل في هذا المكون بمجرد النقر على احد عناصره (item2) تظهر الفورم 02
واذا نقرننا على item3 يستدعي لنا الفورم 03 وهكذا ....
واليكم المثال للتصحيح
وشكرا

السلام عليكم
هذه طريقة بدائية:
إجعل الحدث OnChange للمكون TTreeView كما يلي:

PHP كود :
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  case AnsiIndexText(Node.Text, ['item2','item3']) of
   0: Form2.ShowModal;
   1: Form3.ShowModal;
  end;
end; 

الأفضل تخزين مؤشر في كل فرع ثم استعماله لعرض النموذج.
بالتوفيق.

جزاك الله خيرا الاخوة وبارك الله فيهم..
وجدت طريقة اخرى بسيطة للتعامل مع هذا المكون
نكتب في الحدث OnChange للمكون TTreeView كما يلي:

PHP كود :
procedure TForm1.tv1Change(Sender: TObject; Node: TTreeNode);
begin
if tv1.Selected.Text='item2' then
form2.show;
if tv1.Selected.Text='item3' then
form3.show;
end; 

للعلم اسم المكون هنا هو tv1

moh38

kachwahed

moh38