سؤال عن مثال حول مكون treeview

[moh38]

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

[kachwahed]

السلام عليكم
هذه طريقة بدائية:
إجعل الحدث 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; 


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

[moh38]

جزاك الله خيرا الاخوة وبارك الله فيهم..
وجدت طريقة اخرى بسيطة للتعامل مع هذا المكون
نكتب في الحدث 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