Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];
ВнизУказатели Найти похожие ветки
← →
webpauk (2005-03-04 19:01) [0]Есть
fArray array of tcontrols;
Tcontrol - любой объект
как сделать указатель Items на farray, чтобы в нем показывались только (Tcontrol as TmainMenu), например
← →
clickmaker © (2005-03-04 19:06) [1]
> webpauk (04.03.05 19:01)
у массивов нет встроенных механизмов фильтрации. Руками
← →
Defunct © (2005-03-04 19:11) [2]TControlList = class(TControl)
private
fControls : Array of TControl;
procedure SetItem(const Index: integer; AControl: TControl);
function GetItem(const Index: integer);
public
property Items[Index : integer]:TControl read GetItem write SetItem;
end;
var
Controls : TControlList;
begin
Controls := TControlList.Create;
...
Вот, и в функции GetItem выбирать только те Control"ы которые (is TMainMenu)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.051 c