Question

Delphi 10seatle Pro

我有2种形式：mainform和subform。

主窗体包含mainmenu和pageControl（名为= mainpageControl）。

子表单包含2个Tedit。

从主菜单动态创建的subForm如下：

首先创建标签页（newTabSheet）并将其设置为pagecontrol到mainpageControl。
然后创建面板并将其父面板设置为newtabsheet。

最终创建子窗体并将其设置为所创建面板的父窗体。

var
 newTabSheet : TRzTabSheet;
 frm : tform;
 pnl : TPanel;
begin
  newTabSheet := TRzTabSheet.Create(pgcPreview);
  newTabSheet.Caption     := 'New Tab';
  newTabSheet.PageControl := mainpageControl;
  pnl          := TPanel.Create(tbsheet);
  pnl.Align    := alClient;
  pnl.Parent   := newTabSheet;
  frm          := TFrmSubform.Create(pnl);
  frm.parent   := pnl;
  frm.Align    := alClient;
  frm.BorderStyle := bsNone;
  frm.Visible := true;
  mainpageControl.ActivePage := newTabSheet
end

此代码运行良好，每次我单击主菜单项时，都会创建一个包含表单实例的新选项卡。

TEdit的

OnKeyUp我清除了所有文本，并将setfocus设置为首次编辑，但焦点转到了主菜单。 那么如何将焦点重新设置为表单上的修改？

如何将焦点设置回delphi中的表单输入？

0 个答案: