最小化が利かなくなったときは?

解決


Cigthen  2003-03-09 01:19:01  No: 3106  IP: [192.*.*.*]

procedure TForm1.AppMinimize(Sender: TObject);
begin
MakeTrayIcon;
Form1.Hide;
end;
でFormを最小化したときにタスクトレイにアイコンを表示して
Form1を隠し、
    WM_LBUTTONDBLCLK:
             begin
           Form1.Show;
           DeleteTrayIcon;
         end;
でフォームを再度表示したときにウィンドウの最小化ボタンが利かなくなる(おしても最小化しなくなる)という現象がおこるのですが、どうすれば再び最小化ボタンがきくようになりますか?

編集    削除
にしの  2003-03-09 13:37:57  No: 3107  IP: [192.*.*.*]

最小化した状態でフォームを表示させているから、最小化ボタンが押せないのです。
# 最小化した状態で最小化はできませんよね
元に戻す処理を、Form1.Showのあたりに加えてください(未確認です)。

編集    削除
Cigthen  2003-03-10 06:06:48  No: 3108  IP: [192.*.*.*]

WM_LBUTTONDBLCLK:
             begin
           Form1.Show;
           DeleteTrayIcon;
         end;
の部分にForm1.WindowState :=  wsNormal;を付け足してみましたが、まだ
最小化が利かない状態です。

AppRestoreにも付け足してみましたが、やはり最小化が利きませんでした

編集    削除
にしの  2003-03-10 07:19:10  No: 3109  IP: [192.*.*.*]

Application.Restore;でも駄目ですか?

編集    削除
Cigthen  2003-03-10 07:23:29  No: 3110  IP: [192.*.*.*]

ありがとうございます。
Application.Restore;にすると
解決しました。

編集    削除