Главная страница
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.021 c
1-1079228001
Demik
2004-03-14 04:33
2004.04.04
-= MainMenu - в нем BitMap -=-


14-1078610351
Soft
2004-03-07 00:59
2004.04.04
Как настроить роутинг NetBios?


1-1079145958
Александр1
2004-03-13 05:45
2004.04.04
Работа с TabControl1


1-1079540651
Buffoon
2004-03-17 19:24
2004.04.04
Конвертирование


1-1079541387
fc
2004-03-17 19:36
2004.04.04
Расскрашиваем ноды в тривью...