各窗体的创建顺序??
不要放到 form里
放到var里
companyid:string;

解决方案 »

  1.   


    我想你的TuserloginForm.FormCreate(Sender: TObject);
    在 2.给变量赋值
    procedure TCompanyForm.DBGrid1CellClick(Column: TColumn);
    var
    myvariant:variant;
    begin
    myvariant:=column.field.Value;
    companyid:=vartostr(myvariant);
    SeSkinButton1.Enabled:=True;
    end;前已经建立了,所以没有值了。改为:TuserloginForm.FormActive(Sender: TObject);试试。。
     
      

  2.   


    procedure TuserloginForm.FormCreate(Sender: TObject);这句语句有问题,改为 FormActive 试试,仔细想想你就会明白的哦