Поиск определенного дочернего окна
-----------------------------------------------------------------
Иногда желательно иметь методы, выполняющие итерацию по списку окон в поиске конкретного окна. Например, в окне с нес- колькими кнопками вам может потребоваться найти первую установ- ленную кнопку с независимой фиксацией. В этом случае метод TWindowsObject.FirstThat можно записать так:
function TMyWindow.GetFirstChecked: PWindowsObject;
function IsThisOneChecked(ABox: PWindowsObject): Boolean; far; begin IsThisOneChecked := (ABox^.GetCheck = bf_Checked); end;
begin GetFirstChecked := FirstThat(@IsThisOneChecked); end;
