你没有声明全局变量吧??你是否指的是声明的窗体类和其实例?如果是这样,查看工程文件,userloginForm是不是自动建立,是的话TuserloginForm.FormCreate(Sender: TObject);应该在你TCompanyForm.DBGrid1CellClick(Column: TColumn);之前执行。
所以你在这个地方访问是没赋值的
所以你在这个地方访问是没赋值的
解决方案 »
- ******关于数据库的导入和导出???????????????????????
- (300求助,急)如何动态创建TreeView与文件目前对接
- 如何把我的ie设为使用代理服务器上网?
- 有个活需要几位懂Delphi的同志兼职
- 怎样忽略掉这个系统级错误??
- ShellTreeview中如何确定一个结点到底是文件还是文件夹
- 请问再程序中怎么让Edit中显示的字符串换行???急急急!!
- 对于delphi对数据库操作的疑问
- 请教一个关于dbgrideh 排序的问题
- 如何建立专网上的数据库共享 谢谢!
- 怎样在Delphi中使用Excel,以把数据写到Excel中去?
- 以前用vb现在想学delphi请问,我学delphi5,还是delphi6? 有没有好点的教程请推荐谢谢
procedure TCompanyForm.DBGrid1CellClick(Column: TColumn);
begin
companyid:=column.field.AsString;
SeSkinButton1.Enabled:=True;
end;
其次:
你跟踪一下这时companyid的值是否正确?
第三:
如果你的TUserLoginForm是动态生产的,也可以在Create语句以后直接赋值,如
with TUserLoginForm.Create do
begin
passwordedit.text:=companyid;
label3.caption:=companyid;
if ShowModal = mrOK then
begin
.....
end
end
这样不用FormCreate事件也可以的
第四:
如果非要用FormCreate,原理上也应该没问题的,具体你跟踪一下再说吧