Текущий архив: 2005.03.20;
Скачать: CL | DM;
Вниз
Указатели Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.026 c
