delphi简单问题

Question

我想问一下？
怎样让窗体在屏幕上正常停留1秒，然后让他自动最大化。 

Answer 1

定义一个时间差吧，
procedure TmpglForm.FormCreate(Sender: TObject);
begin
  edit1.text := '1';
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  edit1.Text := IntToStr(StrToInt(edit1.Text)+1);
    if edit1.Text := '2' then
      Form1.WindowState := 'wsMaximized';
end;

Answer 2

错了，上面的代码是这样的
procedure TForm.FormCreate(Sender: TObject);
begin
  edit1.text := '1';
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  edit1.Text := IntToStr(StrToInt(edit1.Text)+1);
    if edit1.Text := '2' then
      Form1.WindowState := 'wsMaximized';
end;

Answer 3

又错了，
第一行是这样的。
procedure TForm1.FormCreate(Sender: TObject);

Answer 4

//这个才是你想要的..
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  i:integer;
implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
    i:=i+1;
    if i=2 then
    begin
       form1.WindowState:=wsmaximized;
    end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
    i:=1;
end;end.

Answer 5

Timer的lnterval设为1000(一秒)procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Form1.WindowState := wsMaximized;
 Timer.Enabled := false;
end;

Answer 6

上面的例Timer实际运行时为Timer1

Answer 7

楼主这个想法很有创意！
当然，实现起来也很简单，用一个Timer控件足矣！