在Form1上自定义了一个过程 procedure setting();
在button1click中直接调用不了
为什么?

解决方案 »

  1.   

    procedure <过程标识名>(<形式参数表>);
    <过程体>
      

  2.   

    在public里写上procedure setting;在
    implement下面写上
    procedure Tform1.setting;
    begin
    label1.caption:='aaa';
    end;procedure Tbutton1click(object:sender);
    begin
    setting;
    end;
      

  3.   

    在Form1上自定义了一个过程 procedure setting();则写实现代码的时候要在名称前加一个‘form1.’,如procedure form1.setting(); 
      

  4.   

    type
      TForm1 = class(TForm)
      private
          procedure setting();
      ...implementation{$R *.dfm}procedure TForm1.setting();
    begin
    //
    end;procedure TForm1.Button1Click(Sender: TObject);
    begin
        setting();
    end;