// هل تريد حقاً تغيير ارتفاع الـ Item في الـ TreeView إليك ما تفعل ?
uses CommCtrl; procedure SetTreeViewItemHeight(aTreeView: TTreeView; aItemHeight: Word); begin aTreeView.Perform(TVM_SETITEMHEIGHT, aItemHeight, 0); end; // مثال: procedure TForm1.Button1Click(Sender: TObject); begin SetTreeViewItemHeight(TreeView1, 30); end;
المبرمج عماد .... B) B)