一个错误，高手请教下~~

Question

本帖最后由 whatgaohui 于 2009-08-22 10:31:57 编辑

Answer 1

这个是main.pasunit main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Menus,About,Ftp,Custom,Option;type
  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ControlBar1: TControlBar;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn11: TBitBtn;
    ControlBar2: TControlBar;
    BitBtn1: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FrmMain: TFrmMain;implementation{$R *.dfm}procedure TFrmMain.N4Click(Sender: TObject);
begin
close;
end;procedure TFrmMain.N7Click(Sender: TObject);
begin
 FrmAbout.Show;
end;procedure TFrmMain.BitBtn12Click(Sender: TObject);
begin
 FrmCustom.Show;
end;procedure TFrmMain.N5Click(Sender: TObject);
begin
  FrmCustom.Show;
end;procedure TFrmMain.BitBtn1Click(Sender: TObject);
begin
  FrmAbout.Show;
end;procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  showmessage('感谢使用，作者：天行者yy~');
end;procedure TFrmMain.BitBtn10Click(Sender: TObject);
begin
 FrmFtp.Show;
end;procedure TFrmMain.BitBtn13Click(Sender: TObject);
begin
  FrmOption.Show;
end;procedure TFrmMain.N6Click(Sender: TObject);
begin
  FrmOption.Show;
end;end.

Answer 2

把有点击按钮的事件都全部删除了，你现在的问题是程序上有bitbutton的onclick事件，你把按钮删除了，肯定会出现以上错误

Answer 3

这是project.dpr
program Project1;uses
  Forms,
  login in 'login.pas' {FrmLogin},
  main in 'main.pas' {FrmMain},
  About in 'About.pas' {FrmAbout},
  ftp in 'ftp.pas' {FrmFtp},
  Custom in 'Custom.pas' {FrmCustom},
  Option in 'Option.pas' {FrmOption};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmLogin, FrmLogin);
  Application.CreateForm(TFrmAbout, FrmAbout);
  Application.CreateForm(TFrmFtp, FrmFtp);
  Application.CreateForm(TFrmCustom, FrmCustom);
  Application.CreateForm(TFrmOption, FrmOption);
  Application.Run;
end.

Answer 4

就好比你把BitBtn13删除了，程序上还有以下过程：
procedure TFrmMain.BitBtn13Click(Sender: TObject); 
begin 
  FrmOption.Show; 
end; 

Answer 5

好的，那我把main.pas里的事件都删了再加试试~~

Answer 6

不行啊，我试了两种方法1。我把这段代码都删了
procedure TFrmMain.N4Click(Sender: TObject); 
begin 
close; 
end; procedure TFrmMain.N7Click(Sender: TObject); 
begin 
FrmAbout.Show; 
end; procedure TFrmMain.BitBtn12Click(Sender: TObject); 
begin 
FrmCustom.Show; 
end; procedure TFrmMain.N5Click(Sender: TObject); 
begin 
  FrmCustom.Show; 
end; procedure TFrmMain.BitBtn1Click(Sender: TObject); 
begin 
  FrmAbout.Show; 
end; procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  showmessage('感谢使用，作者：天行者yy~'); 
end; procedure TFrmMain.BitBtn10Click(Sender: TObject); 
begin 
FrmFtp.Show; 
end; procedure TFrmMain.BitBtn13Click(Sender: TObject); 
begin 
  FrmOption.Show; 
end; procedure TFrmMain.N6Click(Sender: TObject); 
begin 
  FrmOption.Show; 
end; 
结果出现了以下错误。can not find implementation of method bitbutton2click 
2.我接着尝试就删除以下代码中的 FrmOption.Show; 
procedure TFrmMain.N6Click(Sender: TObject); 
begin 
  FrmOption.Show; 
end; 结果运行了还是原来的问题。。急 啊。我该怎么做~~~

Answer 7

unit main; interface uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons, ExtCtrls, Menus,About,Ftp,Custom,Option; type 
  TFrmMain = class(TForm) 
    MainMenu1: TMainMenu; 
    N1: TMenuItem; 
    N2: TMenuItem; 
    N3: TMenuItem; 
    N4: TMenuItem; 
    N5: TMenuItem; 
    N6: TMenuItem; 
    N7: TMenuItem; 
    ControlBar1: TControlBar; 
    BitBtn2: TBitBtn; 
    BitBtn3: TBitBtn; 
    BitBtn4: TBitBtn; 
    BitBtn5: TBitBtn; 
    BitBtn6: TBitBtn; 
    BitBtn7: TBitBtn; 
    BitBtn8: TBitBtn; 
    BitBtn9: TBitBtn; 
    BitBtn11: TBitBtn; 
    ControlBar2: TControlBar; 
    BitBtn1: TBitBtn; 
    BitBtn10: TBitBtn; 
    BitBtn12: TBitBtn; 
    BitBtn13: TBitBtn; 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; var 
  FrmMain: TFrmMain; implementation {$R *.dfm} end.把以上代码拷回unit main单元~~

Answer 8

按照楼上的，我做了一下操作，我把main.pas里的都删除，然后复制楼上代码进去。
但是出现了一下的错误对话框:
field FrmMain.controlbar2 doesnot have a corresponding component  remove the declaration ?      yes    no   cancel  help
？？我选什么？

Answer 9

我都选择了 yes，然后对一个bitbutton 添加了一个click事件，调用一个窗体，然后运行，还是出现原来的错误

Answer 10

如果还是这个错误，则添加一个GroupBox到提示错误的窗体上面~~

Answer 11

问题解决了，原来是option窗体里的groupbox的name为空了，虽然我不知道它为什么为空，我也没改过，但是问题解决了，谢谢楼上的！！！！