+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال عن مثال حول مكون treeview (/showthread.php?tid=1042)
سؤال عن مثال حول مكون treeview - moh38 - 12-07-2009
بسم الله والحمد لله والصلاة والسلام على رسول الله وبعد
الى الاخوة في هذا المنتدى الطيب
لدينا مثال يحوي ثلاثة فورم مع مكون treeview في الفورم الرئيسي
ماهو الكود المستعمل في هذا المكون بمجرد النقر على احد عناصره (item2) تظهر الفورم 02
واذا نقرننا على item3 يستدعي لنا الفورم 03 وهكذا ....
واليكم المثال للتصحيح
وشكرا
سؤال عن مثال حول مكون treeview - kachwahed - 12-07-2009
السلام عليكم
هذه طريقة بدائية:
إجعل الحدث 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;
بالتوفيق.
سؤال عن مثال حول مكون treeview - moh38 - 13-07-2009
جزاك الله خيرا الاخوة وبارك الله فيهم..
وجدت طريقة اخرى بسيطة للتعامل مع هذا المكون
نكتب في الحدث 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;