Имитация Tab
Falk0ner, вс, 06/07/2008 - 15:34.
Select(screen.ActiveControl, True, True);
Разместите приведенный код в обработчике одного из собитий. Select - защищенный метод TWinControl со следующим прототипом:
procedure Select(CurControl: TWinControl; GoForward, CheckTabStop: Boolean);
Так как форма также является потомком TWinControl, то она имеет доступ к защищенным методам.
Взято с http://delphiworld.narod.ru
Отправить комментарий