Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
How to change the active element on the form.
#4
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;
Reply


Messages In This Thread
RE: How to change the active element on the form. - by Сергей Александрович - 07-22-2021, 04:25 PM

Forum Jump:


Users browsing this thread: 2 Guest(s)