Как? Клавиша ENTER вместо клавиши TAB III

Я хочу предложить Вашему вниманию процедуру, с помощью которой можно передвигаться по нажатию клавиши "Enter" по возрастанию значений свойства элемента - "Tag".

В обработчик события onKeyPress нужно написать вот что:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Enter_KeyPress(Form,Sender,Key); end;

А сама процедура имеет следующий вид:

procedure Enter_KeyPress(Form: TForm; Sender: TObject; var Key: Char);
var i,next:integer;
begin
with Sender as TWinControl do if key=#13 then begin next:=Tag+1; for i:=0 to Form.ComponentCount-1 do begin if (Form.Components[i].Tag=next) then try TWinControl(Form.Components[i]).SetFocus; exit; except next:=next+1; end; end; key:=#0; end; end;

Надеюсь, эта процедура пригодится...
Сочнев Петр Георгиевич ... [001999]

Содержание раздела