盒子论坛 v2.1

我在一个窗口中用
procedure TW_runningputin.B_browseClick(Sender: TObject);
var
  Ttable: TW_table;
begin
  Ttable:=TW_table.Create(Application);
  W_table.Showmodal;
end;
这种方法显示一个table（上面程序提到的）窗口然后在table窗口中点击一个控件
相应的在runningputin窗口中的一个控件显示数据，但怎么都不成功。
我断点下来看了，确实成功付了值。
望高人能够指点一二。
----------------------------------------------
-

作者：

liugang (爱你一万年)	★☆☆☆☆	-
	盒子活跃会员

2003/10/27 9:29:30

1楼：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if tw_=nil then
  tw_:=ttw_.Create(Application);
  tw_.Showmodal;

end;
----------------------------------------------
dfsajkl;

作者：

rhot (rbeatles)	★☆☆☆☆	-
	盒子活跃会员

2003/10/27 9:44:17

2楼：

还是没用。
W_table.Show;也试过了.没用.
----------------------------------------------
-

作者：

rhot (rbeatles)	★☆☆☆☆	-
	盒子活跃会员

2003/10/28 9:44:48

3楼：

问题我已解决了；
但原因我还是不知道。
情况是这样的：我的程序一层一层进入的，登陆窗口-->编辑窗口-->浏览窗口；
问题是‘浏览窗口’中的控件不能控制‘编辑窗口’中的控件。
我在‘登陆窗口’中专门放一个Button来显示‘编辑窗口’问题就解决了。
‘登陆窗口’中原显示‘编辑窗口’的Button代码如下：
.........//计算部分省略。
  if edit1.Text =' then
    MessageBox(0,'  .....','错误信息：',MB_OK+MB_ICONERROR+MB_TASKMODAL)
  else
  begin
    with Query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from table');
      Open;
      if eof then
      begin
        if MessageBox(0,'.......,'数据库提示',MB_YESNO)=6 then
        begin
          Application.CreateForm(Tfrom1, from1);
          from1.Showmodal;
          from1.Release;
          close;
        end;
      end else
      begin
        Application.CreateForm(Tfrom1, from1);
        from1.Showmodal;
        from1.Release;
        close;
      end;
    end;
  end;    //稍加修改。

有哪为高人知道原因请回复我，谢谢。
----------------------------------------------
-

信息

登陆以后才能回复