CodePudding user response:
Var
LastPage: Integer;
Procedure TForm1. Pgc1Changing (Sender: TObject; Var AllowChange: Boolean);
The begin
LastPage:=pgc1. TabIndex;//save the last tabindex
end;
//and then closing pgc1. TabIndex:=lastPage; Restore the last
CodePudding user response:
Oh, I'll give it a try, thanks