Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

Как по нажатии клавиши изменить фокус ввода   Найти похожие ветки 

 
AleksandrKu   (2004-03-19 08:51) [0]

На форме есть несколько эдитов как после ввода в одном при нажатии Enter перенести фокус на другой. следуя установкам TabOrder. Простот перенести фокус на любой элемент я могу но нужно по TabOrder чтоб неписать для каждого едита прорцедуру
а йх 70 с лишним


 
Романов Р.В. ©   (2004-03-19 08:58) [1]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 begin
   Key := #0;
   SelectNext(ActiveControl, true, true);
 end;
end;


 
Silver Alex ©   (2004-03-19 09:00) [2]

procedure TfrmIncomeEdit.NextFocus(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
   SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);
   Key:=#0
 end;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.045 c
1-1079341340
TUser
2004-03-15 12:02
2004.04.04
Оптимизатор


11-1059319517
BelchonokH
2003-07-27 19:25
2004.04.04
pstream.free


1-1079462465
Шнур
2004-03-16 21:41
2004.04.04
Компоненты


1-1079511165
olookin
2004-03-17 11:12
2004.04.04
Компонент ActiveX


14-1078752373
он
2004-03-08 16:26
2004.04.04
выборы