![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Одностроковый текст (Edit)
Пример выхода из Edit1 по клавише Enter в событии OnKeyPress. Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); If Key=#13 Then{переход к следующему в порядке обхода (п.2.2.1.2)} Begin Key: =#0; Form1.SelectNext(Sender as TWinControl, True, True); End; {или If Key=#13 Then Begin Key: =#0; Form1.ActiveControl: =Edit2; End; } {или If Key=#13 Then Begin Key: =#0; Form1.Edit2.SetFocus; End; } End Более удобным является переход по клавише Enter к следующему по порядку обхода объекту, используя метод SelectNext (п.2.2.1.2). Пример процедуры обработки события формы (со свойством Key Preview=True) OnKeyPress для перехода по клавише Enter из любого объекта, что более удобно, чем отдельные процедуры для каждого объекта: Procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); Begin If Key=#13 Then Begin Key: =#0; Form1.SelectNext(Form1.ActiveControl as TWinControl, True, True); Key: =#0; End; End;
|