对self和sender的理解

 对self和sender的理解

 在过程里定义的局部变量,不能进行初始化;全局变量就可以进行初始化.

例:

    type
         Tfrm_zi = class(Tfrm_fu)        //类Tfrm_zi继承自Tfrm_fu窗体

         procedure sbtn_updateClick(Sender: TObject);

        private
                   { Private declarations }

        public
                 { Public declarations }

                ping: String = '不等边角钢';  //不正确,在public里,变量不得初始化,也不允许声明常量

    end;

 

var
  frm_zi: Tfrm_zi;
  pinming: String = '不等边角钢';   //这里可进行初始化,因为是全局变量
implementation

{$R *.dfm}

procedure Tfrm_zi.sbtn_updateClick(Sender: TObject);
var
  pinming: String;       //不能写为pinming: String = '销售公司';因为局部变量不能进行初始化
begin
  inherited;
  
    ShowMessage('这是子窗口自己的事件');
    edt_changjia.Text := '销售公司';
    edt_pinming.Text := pinming;
end;