界面控制怎么实现呢，代码是不是有问题。。

Question

procedure TMain_F.XYSJ_FBtnClick(Sender: TObject);           //现有试卷
begin
  SJ_PC.ActivePage:=XYSJ_TS;
  XYSJ_FBtn.ColorBorder:=clBlue;        //界面控制
  ZDSJ_FBtn.ColorBorder:=clMoneyGreen;
  SDSJ_FBtn.ColorBorder:=clMoneyGreen;
  TKLR_FBtn.ColorBorder:=clMoneyGreen;
  TKWH_FBtn.ColorBorder:=clMoneyGreen;
  XXSZ_FBtn.ColorBorder:=clMoneyGreen;
  label1.Caption:='抽 取 现 有 试 卷';
  XYSJ_FBtn.ColorHighLight:=clBlue;
  XYSJ_FBtn.ColorShadow:=clBlue;
  ZDSJ_FBtn.ColorHighLight:=clWhite;
  ZDSJ_FBtn.ColorShadow:=clBlack;
  SDSJ_FBtn.ColorHighLight:=clWhite;
  SDSJ_FBtn.ColorShadow:=clBlack;
  TKLR_FBtn.ColorHighLight:=clWhite;
  TKLR_FBtn.ColorShadow:=clBlack;
  TKWH_FBtn.ColorHighLight:=clWhite;
  TKWH_FBtn.ColorShadow:=clBlack;
  XXSZ_FBtn.ColorHighLight:=clWhite;
  XXSZ_FBtn.ColorShadow:=clBlack;错误提示这些*_FBtn都为定义，是不是uses里面缺少点东西，求高手

Answer 1

*_FBtn不是TMain_F上的控件?? 如果不是,假设是FORM2的话, 就FORM2.*_FBtn

Answer 2

 是TMain_F的控件呀，那是怎么回事呢？要第三方控件？

Answer 3

把TMain_F定义部分贴出来看看。从错误信息看，是这些TButton都没加上。

Answer 4

unit Main_Form;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, ComCtrls, DB, ADODB, WordXP,
  OleServer;type
  TMain = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    XXSZ_P: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Image2: TImage;
    Label1: TLabel;
    SJ_PC: TPageControl;
    XYSJ_TS: TTabSheet;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Label11: TLabel;
    SJT_DBG: TDBGrid;
    SJ_DBG: TDBGrid;
    ZDSJ_TS: TTabSheet;
    Bevel9: TBevel;
    Label20: TLabel;
    SDSJ_TS: TTabSheet;
    Bevel3: TBevel;
    Bevel4: TBevel;
    JS_L: TLabel;
    Label10: TLabel;
    ST_DBG: TDBGrid;
    BCSJ_P: TPanel;
    CQXY_Btn: TButton;
    ZDSC_Btn: TButton;
    SDSC_Btn: TButton;
    TKLR_Btn: TButton;
    TKWH_Btn: TButton;
    XXSZ_Btn: TButton;
    YLSJ_Btn: TButton;
    BCSJ_Btn: TButton;
    SCSJ_Btn: TButton;
    SJ_ADOQ: TADOQuery;
    SJT_ADOQ: TADOQuery;
    SJ_DS: TDataSource;
    SJT_TS: TDataSource;
    Button2: TButton;
    SJ_WA: TWordApplication;
    SJ_WD: TWordDocument;
    SJ_WF: TWordFont;
    SJTXX_ADOQ: TADOQuery;
    XT_ADOQ: TADOQuery;
    procedure TKLR_BtnClick(Sender: TObject);
    procedure TKWH_BtnClick(Sender: TObject);
    procedure XXSZ_BtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure CQXY_BtnClick(Sender: TObject);
    procedure YLSJ_BtnClick(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Main: TMain;implementation
    uses
    DataModule, Enter_Form, Tklr_Form, Tkwh_Form, Set_Form , RateProcess_Form;
{$R *.dfm}

Answer 5

[错误] Main_Form.pas(156): Undeclared identifier: 'TKLR_FBtn'
     提示所有的'****_FBtn'都是这个错误 

Answer 6

 CQXY_Btn: TButton;
  ZDSC_Btn: TButton;
  SDSC_Btn: TButton;
  TKLR_Btn: TButton;
  TKWH_Btn: TButton;
  XXSZ_Btn: TButton;
  YLSJ_Btn: TButton;
  BCSJ_Btn: TButton;
  SCSJ_Btn: TButton;
這是你以上的定義，每個名字的Btn前都沒“F”，而你程序代碼中全部變成了“XXXX_FBtn，名字不同肯定出錯。