Pascal 7 & Objects


Поиск определенного дочернего окна


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

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

function TMyWindow.GetFirstChecked: PWindowsObject;

function IsThisOneChecked(ABox: PWindowsObject): Boolean; far; begin IsThisOneChecked := (ABox^.GetCheck = bf_Checked); end;

begin GetFirstChecked := FirstThat(@IsThisOneChecked); end;

| |




Начало  Назад  



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