Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
ВнизКак по нажатии клавиши изменить фокус ввода Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.039 c