高手们！帮我看看我这段代码，错在哪里？急！急！！急！！！

呵呵，我这里都能最小化。不过FloatWindow的SpeedButton1的Click是无效的。也应该是无效的，因为此书FloatWindow是模态的。

解决方案 »

  1.   

    我的意图是：单击speedbutton1时，还原mainwindow.
      

  2.   

    改成floatwindow.Show;也没有用，还是不能最小化
      

  3.   

    to chechy(chechy)
    写了，不行。
      

  4.   

    奇怪了，我这里就可以啊。因为代码是先执行最小化，然后才ShowModal floatWindow啊。
      

  5.   

    D5, Update Pack1，呵呵难道不同的Delphi会产生不同的功能吗？
      

  6.   

    我用的是：Delphi 5.0+Windows2000 p
      

  7.   

    to tikkypeng(千两狂死郎)　
    可否指点一下你用什么做帮助吗？在哪里有下载？
      

  8.   

    to:：　DD88(我爱看“超级星期天”！)　~~~看看你那个贴子~~我已经回复了~~
      

  9.   

    TO:chechy(chechy)　~~~那你的操作系统是什么呢？？
      

  10.   

    继续关注~~DD88~~你的Delphi有没有升级呢？？
      

  11.   

    to tikkypeng(千两狂死郎)
    谢谢，我正在下，已经给你加了份，谢谢1
      

  12.   

    www.borland.com去下载Pack1。不过这个问题，我觉得Delphi不会出BUG的。
      

  13.   

    TO:chechy(chechy)　~~~只有试试再说了~~呵呵~~这种问题不是自己犯了低级错误就是软件的问题~~~
      

  14.   

    呵呵，下面是我的代码：unit Unit8;interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      DBCtrls, StdCtrls, Mask, Db, Grids, DBGrids, DBTables;type
      TForm1 = class(TForm)
      private
        { Private declarations }
        procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementationuses Unit11;{$R *.DFM}procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
    begin
      inherited;
      if Msg.CmdType = SC_MINIMIZE then
      begin
        floatwindow.Showmodal;
      end;
    end;end.
      

  15.   

    我的程序和chechy(chechy)的没有什么区别啊？怎么就……
      

  16.   

    呵呵，tikkypeng(千两狂死郎)，这么晚了，还泡吧啊？
      

  17.   

    呵呵~~~chechy(chechy)　~~~~正在准备回去睡觉中~~不过对于这种问题~~我想马上了解答案~~
      

  18.   

    SORRY,速度很慢……
    那就下次上来时在解决吧！谢谢了
      

  19.   

    TO：DD88~~好像原来你的名字是(我爱看“超级星期天”）~~~
    呵呵~~现在怎么成了(没有心情看“超级星期天”了……)~~~
    不是程序搞的吧？？
      

  20.   

    呵呵，Pack1可不小，有十多兆。呵呵，怕我抢你的分吗？
      

  21.   

    TO:DD88~~希望很快你又可以作(我爱看“超级星期天”）~~~