ShowMessage有何用处

wtomsmith 2004-03-10 03:17:22

有两个窗体 frmUserListMD(MDIChild）、frmUserRightMD(fsNormal,自动加载）;
前者，是系统管理员进入“用户管理”的界面，后者是为查看、编辑具体用户的权限。

在前者工具栏上有个“权限”按钮，还有个网格；后者：定义了2个公有变量
pu_LogUser:String; //登陆名
pu_UserName :String; //用户名
用来传2个参数到后者；有个查询按钮：ButtonS03Search 用来检索数据；
有个隐藏查询条件下拉列表框：

操作是这样的：先选中前者当前网格的某行，在点击“权限”按钮，弹出“frmUserRightMD”可查看当前用户的权限。

“权限”按钮的Click事件:
代码如下：
//得到当前行的登陆名
frmUserRightMD.pu_LogUser:=grdUserList.Cells[1,frmUserListMD.grdUserList.Row];
//得到当前行的用户名
frmUserRightMD.pu_UserName := grdUserList.Cells[2,frmUserListMD.grdUserList.Row];
frmUserRightMD.Show;

在后者的OnShow下写代码,用来向查询条件框赋值，并调用ButtonS03Search.Click
代码如下：
//将取得的登陆名和用户名赋给该下拉框"S01_UserList_S03_LogName_S01_Name"
S01_UserList_S03_LogName_S01_Name.Text := '';
S01_UserList_S03_LogName_S01_Name.Value := pu_LogUser;
//将取得的登陆名和用户名赋给该下拉列表框"S03_LogName"
S03_LogName.Text := '';
S03_LogName.Value := pu_LogUser;
ShowMessage('当前被选中的登陆名是：'+ pu_LogUser);
ButtonS03Search.Click;

“S01_UserList_S03_LogName_S01_Name”的OnChange事件：
代码如下：
ButtonS03Search.Click;
注：ButtonS03是个关于单表查询的第三方控件，有个属性condition,可设置查询条件，即单表查询不需编代码;
问题是：如果没有上面的“ShowMessage('当前被选中的登陆名是：'+ pu_LogUser);
后者就虑不出来结果。相反有此，一切正常。
请各位大侠解答一下。

...全文