Pascal 7 & Objects


Итерация дочерних окон


-----------------------------------------------------------------

Иногда желательно написать методы, для реализации функции выполняющие итерации по каждому дочернему окну данного окна. Нап- ример, можно проверить в окне все кнопки с независимой фиксацией. В этом случае используйте метод TWindowsObject.ForEach:

procedure TMyWindow.CheckAllBoxes;

procedure CheckTheBox(ABox: PWindowsObject); far; begin PCheckBox(ABox)^.Check; end;

begin ForEach(@CheckTheBox); end;

Использование метода ForEach (и аналогичных методов FirstThat и LastThat) похоже на применение методов с аналогичными названиями в TCollection. Хотя ObjectWindows не использует наборы для обслуживания дочерних окон, методы итерации работают анало- гично.




Начало  Назад  Вперед



Книжный магазин