procedure TForm1.AppMinimize(Sender: TObject);
begin
MakeTrayIcon;
Form1.Hide;
end;
でFormを最小化したときにタスクトレイにアイコンを表示して
Form1を隠し、
WM_LBUTTONDBLCLK:
begin
Form1.Show;
DeleteTrayIcon;
end;
でフォームを再度表示したときにウィンドウの最小化ボタンが利かなくなる(おしても最小化しなくなる)という現象がおこるのですが、どうすれば再び最小化ボタンがきくようになりますか?
最小化した状態でフォームを表示させているから、最小化ボタンが押せないのです。
# 最小化した状態で最小化はできませんよね
元に戻す処理を、Form1.Showのあたりに加えてください(未確認です)。
WM_LBUTTONDBLCLK:
begin
Form1.Show;
DeleteTrayIcon;
end;
の部分にForm1.WindowState := wsNormal;を付け足してみましたが、まだ
最小化が利かない状態です。
AppRestoreにも付け足してみましたが、やはり最小化が利きませんでした
Application.Restore;でも駄目ですか?
編集 削除ありがとうございます。
Application.Restore;にすると
解決しました。