简单问题，拿分容易阿！~

Question

……
implementation{$R *.DFM}
当我要写下面语句时 如果正确当写“."时 系统应该出现TForm1的属性才对，对吗？？可是它没有出现 ：（    5555555
procedure TForm1.FormCreate(Sender: TObject);
下面是调试时系统报的错误
[Error] u_main.pas(32): Undeclared identifier: 'FormCreate'
[Error] u_main.pas(35): Undeclared identifier: 'Database1'
[Error] u_main.pas(41): ';' expected but '.' found
[Error] u_main.pas(43): Declaration expected but end of file found
[Fatal Error] smis.dpr(5): Could not compile used unit 'u_main.pas'
Database控件是不是在BDE组里面阿
请大哥大姐帮帮忙了~！怎么做才能正确阿？是不是form1的某个属性我没有设对呢？

Answer 1

很简单，你把那个formcreate文件里的内容剪切下来，然后打开设计fomr1的窗口，在属性窗口的事件列中找到create双击右边的那一栏就会自动建立formcreate的框架了。以情况来看我半是你自己写的formcreate，没有声明在类声明里面吧？如果按下.后不能出现选择属性方法的窗口是因为你的类的声明部分有不能编译的错误，因为delphi在你编辑类的时候会自己的处理。所以先把你的类声明写好再来实现它啊？

Answer 2

下面是代码：
unit u_main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, DBTables;type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Database1: TDatabase;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}  //程序启动时的数据库连接代码放在TForm1.FormCreate进程中
procedure TForm1.FormCreate(Sender: TObject);
begin
try
    Database1.Open;
 except
   Application.MessageBox('请确认用户名密码！','数据库连接错误',MB_OK);
    Application.Terminate;
  end;//用“try...except...end"用来打开数据库连接
……
end.
请问phy(我希望我是高手，却怎么学都是菜鸟。)"formcreate文件里的内容剪切下来……”
能不能具体一点呢？谢谢~！

Answer 3

简单的说，就是要你删除这段代码。让系统自动建立事件框架，方法是在Form1的事件中选择OnCreate就行了，然后在框架中写你的代码。