07-22-2021, 04:25 PM
(This post was last modified: 07-22-2021, 04:27 PM by Сергей Александрович.)
Thanks again for the hint...
And here is a solution to your desire:
procedure EnterNextOrder(Sender: TObject; EventParams: TStringList);
var
mTabOrder : Integer;
i : Integer;
begin
if EventParams.Values['which'] = '13' then
begin
mTabOrder := (Sender as TIWEdit).TabOrder + 1;
if mTabOrder > Self.ComponentCount then mTabOrder := 0;
for i := 0 to Self.ComponentCount-1 do
begin
if Self.Components[i].ClassName = 'TIWEdit' then
begin
if (Self.Components[i] as TIWEdit).TabOrder = mTabOrder then
begin
(Self.Components[i] as TIWEdit).SetFocus;
break;
end;
end;
end;
end;
end;
In the event handler, we call this procedure.
procedure TfmPayTovarEd.edPRICEAsyncKeyDown(Sender: TObject;
EventParams: TStringList);
begin
EnterNextOrder(Sender,EventParams);
end;
And here is a solution to your desire:
procedure EnterNextOrder(Sender: TObject; EventParams: TStringList);
var
mTabOrder : Integer;
i : Integer;
begin
if EventParams.Values['which'] = '13' then
begin
mTabOrder := (Sender as TIWEdit).TabOrder + 1;
if mTabOrder > Self.ComponentCount then mTabOrder := 0;
for i := 0 to Self.ComponentCount-1 do
begin
if Self.Components[i].ClassName = 'TIWEdit' then
begin
if (Self.Components[i] as TIWEdit).TabOrder = mTabOrder then
begin
(Self.Components[i] as TIWEdit).SetFocus;
break;
end;
end;
end;
end;
end;
In the event handler, we call this procedure.
procedure TfmPayTovarEd.edPRICEAsyncKeyDown(Sender: TObject;
EventParams: TStringList);
begin
EnterNextOrder(Sender,EventParams);
end;