两个Tabsheet之间焦点转移

Question

Tabsheet1中有Edit1--Edit9
Tabsheet2中有Edit10-Edit14Form1中有Events
procedure TSy012.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if (key=#13) then
    begin
      key:=#0;
      perform(wm_nextdlgctl,0,0);
    end;//回车后跳到下一焦点//
end;现在我只能在Tabsheet1中移动，怎样才能让焦点在Edit9中的时候，按回车跳到Tabsheet2中的Edit10？
求解

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
  begin
    pagecontrol1.ActivePageIndex:=1;
    edit2.SetFocus ;
  end;
end;

Answer 2

你写在edit9的Onkeydown事件中
if key=#13 then
  begin
    pagecontrol1.ActivePageIndex:=1;
    edit10.SetFocus ;
  end;