盒子论坛 v2.1

我做一个登陆窗口，然后ctrl+f9可以通过，没任何错误提示，但是按f9运行时，只是delphi的编辑窗口消失一瞬间，马上又出先了，按理说是消失以后应该出先运行的登陆窗口，但是一直都没见啊，郁闷中，下面是我窗口的代码，不知道有用吗？

unit denglu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TdengluForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dengluForm1: TdengluForm1;

implementation

{$R *.dfm}

procedure TdengluForm1.Button2Click(Sender: TObject);
begin
  close
end;

procedure TdengluForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text='123' then
  begin
    dengluForm1.Hide;
    kaoshiForm1.Show;
  end
  else begin
         ShowMessage('你的学号与机号不符！');
end;

end.
----------------------------------------------
-

作者：

dronsonxp (dronsonxp)	★☆☆☆☆	-
	盒子活跃会员

2004/4/10 12:23:34

3楼：

最好能给出*.dpr 文件
----------------------------------------------
dronson

作者：

tjh33sj (kaill)	★☆☆☆☆	-
	盒子活跃会员

2004/4/10 18:07:04

4楼：

你可以在用dengluform1.close;
然后在关闭前打开kaoshiform1撒
----------------------------------------------
-

作者：

lulugo (找上帝说理)	★☆☆☆☆	-
	盒子活跃会员

2004/4/10 18:13:19

5楼：

你不是把主窗体作为登录窗体了吧??
----------------------------------------------
-努力成就未来....

作者：

zxdcj (月下舞者)	★☆☆☆☆	-
	盒子活跃会员

2004/4/10 18:38:31

6楼：

看看TdengluForm1的evens页的OnPaint事件是不是引用了button2click
----------------------------------------------
-

信息

登陆以后才能回复