无法聚焦到失效的或不可视的窗口 (0分)

delphi6
修改模块中(此模块在pagecontrol的tabsheet中），bitbtn1(下一笔) bitbtn2（确认修改）
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
adodataset1.First;
if not (adodataset1.state in [dsedit]) then adodataset1.Edit ;
end;


procedure TForm1.BitBtn2cick(Sender: TObject);
begin
adodataset1.Post;
end;

如果只按一次 下一笔 再按 确认修改 不出错；
多进行几次 下一笔---确认修改，出错；
若连续按二次或多次 下一笔 再按 确认修改 也出错
提示
无法聚焦到失效的或不可视的窗口

如果将此模块放在一个子form里则不会出错，这是怎么回事呀

create的时候不能setfocus

也许你用到的东西还没创建呢,

create的时候没有setfocus呀

with form1 do
begin
visible := true;
enabel := true;
end;

谢谢大家，我在adodataset1.post 调用了一个控件，修改模块里没有，所以出错。
很抱歉我的积分太少，给不了帮了我的各位，我会努力的。