الدمج بين البنية TIWTreeView و البنية IWGrid

أخي العزيز لدي بعض تساؤلات أتمنى تأخذها بصدر رحب فغرضي هو فائدتك :

هل قرأت كتاب عن Intraweb قبل ما تضع أسئلتك؟

هل قرأت الـ Help الذي أشرت إليه في رد لي في موضوعك السابق؟

هل حاولت حل المشكلة قبل وضعك للسؤال؟ وإن كانت الإجابة بنعم فلماذا لا تضع الكود ...

إن كنت فاهم كيف تستعمل TTreeView و TStringGrid فلن تواجه صعوبات

جرب هذا الكود :

بإمكانك تغيير الكود حسب ما تريد وربما تستغني عن أشياء فيه وهذا عائد للغرض الذي ستستخدمه

// First we add items to IWTreeView1
procedure TformMain.IWButton1Click(Sender: TObject);
var
I:Integer;
begin
  for I:=0 to 3 do 
   with IWTreeView1.Items.Add do
   begin
	 Caption := 'I am tem no '+inttostr(I);
	 Hint := 'Get the mouse off me !!!';
	  with subitems.Add do
	  begin
		Caption := 'I am item no '+inttostr(I)+'-1';
		Hint := 'Get the mouse off me !!!';
	  end;
	  with subitems.Add do
	  begin
		Caption := 'I am item no '+inttostr(I)+'-2';
		Hint := 'Get the mouse off me !!!';
	  end;
  end;
end;
// Then we copy the items to IWGrid1
procedure TformMain.IWButton2Click(Sender: TObject);
var
I,J:integer;
begin
  IWGrid1.RowCount:=IWTreeView1.Items.Count; 
  IWGrid1.ColumnCount:= IWTreeView1.Items[0].SubItems.Count+1;
  for I:=0 to IWTreeView1.Items.Count-1 do
  begin
	IWGrid1.Cell[I,0].Text:=IWTreeView1.Items.Caption;
	for J:=0 to  IWTreeView1.Items.SubItems.Count-1 do
	IWGrid1.Cell[I,J+1].Text:=IWTreeView1.Items.SubItems[J].Caption;
  end;
end;

لا بد من وجود

	IWTreeView1: TIWTreeView;
	IWButton1: TIWButton;
	IWButton2: TIWButton;
	 IWGrid1: TIWGrid;

في البداية أنقر على IWButton1 لتنشئ عناصر الشجرة ثم أنقر على IWButton2 لنقل محتويات الشجرة الى IWGrid1

حظ موفق