Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
ВнизСмена активного поля. Найти похожие ветки
← →
Song (2002-03-14 13:51) [5]Вот смотри, самый изящный пример, фокус скачет по edit"ам последовательно:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var C:TWinControl;
begin
C:=FindNextControl(TEdit(Sender),True,True,True);
IF C is TEdit then C.SetFocus;
end;
Не забудь поставить эту процедуру для всех TEdit в качестве onKeyDown
А по поводу твоего уточнения, дык это просто:
Edit1.SetFocus;
Edit2.SetFocus;
...
Edit n.SetFocus;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c