샬롬~~

procedure TForm1.PageControl1Change(Sender: TObject);
var
   i : integer;
begin
   //PageControl1.ActivePage.Tag := 0;
   with pagecontrol1.ActivePage do
   begin
      for i := 0 to ControlCount - 1 do
      begin
         if TEdit(Controls[i]).TabOrder = Tag then
         begin
            Self.FocusControl(TWinControl(Controls[i]));
            break;
         end;
      end;
   end;
end;

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
   PageControl1.ActivePage.Tag := TEdit(self.ActiveControl).TabOrder;
end;


ㅋㅋㅋ 넘 복잡한강??

더 간단하고 좋은 방법이 있을수도..^^

즐프하시고..메리 크리스마스~