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