如何让一个对话框在弹出以后自动点击上面的"确定"按钮啊???

Question

也就是说:
程序刚启动的时候启动的是Form1,然后弹出对话框dlg1,让用户输入帐号和密码,点击"确定"后再把dlg1关掉,Form1显示出来.现在我想做的是在dlg1弹出以后,不想自己点击"确定",想在程序里做好,直接在dlg1弹出后再自动点击"确定",然后消失,显示出Form1,这个应该怎么做啊???

Answer 1

form打开后直接调用button处理OnClick事件的方法不就行了？

Answer 2

或者你根本就不要显示这个form了-_-#

Answer 3

就调用那个按钮的Click事件啊...

Answer 4

在窗體的 create 或 show 事件中加入:
 button.click;   //button是你那個"確定"按鈕的名字

Answer 5

在窗体的 OnCreate 或 OnShow 事件中加入:
  Button1Click(nil); //button1是你那个"确定"按钮的名字

Answer 6

procedure Tdlgl.FormShow(Sender: TObject);
begin
  Button_OK.Click;
end;

Answer 7

现在奇怪的是，如果对话框是非模态显示的，则在FormShow的时候用了Button_OK.Click;也不起作用；而如果对话框是模态显示的，则在在FormShow的时候用了Button_OK.Click;就会起作用。这是怎么回事啊？？？

Answer 8

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage('asdfa');
end;procedure TForm2.FormShow(Sender: TObject);
begin
  Button1Click(nil);
end;
都可以压

Answer 9

放个时针，该时针只运行一次procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=false;
  Button1.Click;
end;procedure TForm1.FormShow(Sender: TObject);
begin
  Timer1.Enabled:=true;
end;