请各位大侠指点,我在一个程序里的主窗体中写了以下语句,我认为没有一点问题,可运行时当我将鼠标放在BitBtn1组件上时鼠标变为等待状态,单击时提示 --------------------------- Debugger Exception Notification --------------------------- Project sljxgl.exe raised exception class EInvalidOperation with message 'Cannot focus a disabled or invisible window'. Process stopped. Use Step or Run to continue. --------------------------- OK Help --------------------------- 程序语句如下: procedure Tmainfrm.FormShow(Sender: TObject); begin loginform.ShowModal; end;
procedure tmainfrm.BitBtn1Click(Sender: TObject); begin panelinput.Visible:=true; pgcontrolsjlr.ActivePage:=tbsjf; if pgcontrolsjlr.ActivePage=tbsjf then mainfrm.ActiveControl:=edtpzhm; if pgcontrolsjlr.ActivePage=tbsmj then mainfrm.ActiveControl:=edtmpzhm; end;
procedure Tmainfrm.N1Click(Sender: TObject); begin panelinput.Visible:=true; if pgcontrolsjlr.ActivePage=tbsjf then mainfrm.ActiveControl:=edtpzhm; if pgcontrolsjlr.ActivePage=tbsmj then mainfrm.ActiveControl:=edtmpzhm;