愚蠢的问题，指点一下阿

Question

怎样加载函数，让他自动加载这个函数procedure TUpdate_Form.Load_value();
不知道，新手美文化啊，高手指点一下巴
unit updatedept;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TUpdate_Form = class(TForm)
    Label1: TLabel;
    DeptName: TEdit;
    DeptCode: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
  private
    procedure Load_value();
   { private declarations }
  public
   { Public declarations }
  end;var
  Update_Form: TUpdate_Form;implementationuses Dept;{$R *.dfm}
procedure TUpdate_Form.Load_value();
begin
  showmessage(''+Dept_Form.DBGrid1.columns[0].Field.AsString+'');end;
end.

Answer 1

procedure TUpdate_Form.FormShow(Sender: TObject);
begin
    Load_value;
end;

Answer 2

那就用窗体的OnCreate来调用你的函数procedure TForm1.FormCreate(Sender: TObject);
beginend;

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  Load_value;
end;