SelectNext(screen.ActiveControl, True, True);

 

Разместите приведенный код в обработчике одного из собитий. SelectNext - защищенный метод TWinControl со следующим прототипом:

 

Code:

procedure SelectNext(CurControl: TWinControl; GoForward, CheckTabStop: Boolean);

  

Так как форма также является потомком TWinControl, то она имеет доступ к защищенным методам.

 

Взято с https://delphiworld.narod.ru

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить