Question

delphi 怎样在动态窗体的选项卡上设焦点

我是个菜鸟，
想在点击Frm_interface窗体的不同下拉菜单项时调用Frm_changekey窗体的不同选项卡，像这样写会报错：
procedure TFrm_Interface.N131Click(Sender: TObject);
begin
Application.CreateForm(TFrm_changekey,Frm_changekey);
Frm_changekey.ShowModal;
Frm_changekey.Tabsheet2.setfocus;
Frm_changekey.Free;
end;

Answer 1

为啥一定要设置焦点？把需要显示的选项卡显示出来，不需要的隐藏就好了。。
用showmodal 显示窗口，在关闭窗口前，shoumodal 之后的语句是不执行的

追问

那把显示隐藏选项卡的代码写在哪里呢？用通用变量？有好点的方法吗？恕小女无知。。

追答

procedure TFrm_Interface.N131Click(Sender: TObject);
begin
Application.CreateForm(TFrm_changekey,Frm_changekey);
Frm_changekey.tabsheet2.tabvisible:=true;
Frm_changekey.tabsheet2.tabvisible:=false;

Frm_changekey.ShowModal;
Frm_changekey.Free;
end;
或者
初始吧所有sheet 都设置为隐藏，用谁显示谁，
showmodal 前设置index 值，
frm_changekey.pagecontrol.pages[index].tabvisible:=true;

Answer 2

在Frm_changekey的单元加上OnShow事件代码来设置焦点

procedure TFrm_changekey.FormShow(Sender: TObject);
begin
Self.TabSheet2.SetFocus;
end;