Советы по Delphi

       

Получение индекса компонента в списке родителя


Мне необходимо найти индекс компонента в родительском списке дочерних элементов управления. Я попытался модифицировать prjexp.dll, но без успеха. У кого-нибудь есть идеи?

Есть такая функция. Ищет родителя заданного компонента, перебирает список и возвращает индекс искомого компонента. Функция прошла многочисленные тесты и вполне работоспособна.

{ функция, возвращающая индекс искомого компонента в
списке родителя; возвращает -1 при отсутствии компонента }function IndexInParent(vControl: TControl): integer;
var
ParentControl: TWinControl;begin
{делаем "слепок" родителя через базовой класс на предмет доступности }ParentControl := TForm(vControl.Parent);if (ParentControl <> nil) thenbeginfor Result := 0 to ParentControl.ControlCount - 1 dobeginif (ParentControl.Controls[Result] = vControl) then Exit;end;end;{ если мы уж попали в это место, то либо не найден компонент, либо компонент не имел родителя }Result := -1;end;
[000056]



Содержание раздела