22-01-2011, 01:17 PM
22-01-2011, 02:11 PM
وعليكم السلام ورحمة الله
حلقة تمر على Items كبقية المكونات...
مثال منقول:
بالتوفيق.
حلقة تمر على Items كبقية المكونات...
مثال منقول:
كود :
// Search a TreeItem through its Text property
// Return value is a TreeNodeObject
function Form1.TreeItemSearch(TV: TTreeView; SucheItem: string): TTreeNode;
var
i: Integer;
iItem: string;
begin
if (TV = nil) or (SucheItem = '') then Exit;
for i := 0 to TV.Items.Count - 1 do
begin
iItem := TV.Items[i].Text;
if SucheItem = iItem then
begin
Result := TV.Items[i];
Exit;
end
else
begin
Result := nil;
end;
end;
end;
// Example: Search for Wasserfall in TreeView1 and select item
procedure TForm1.Button1Click(Sender: TObject);
var
Node: TTreeNode;
begin
//either
Node := TreeItemSuchen(TreeView1, 'Wasserfall');
TreeView1.Selected := Node;
//or
TreeView1.Selected := TreeItemSuchen(TreeView1, 'Wasserfall ');
end;24-01-2011, 03:33 PM
جزاك الله خيراً أخي kachwahed