Предохранить форму от сворачивания

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Предохранить форму от сворачивания

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

The Windows Taskbar function "Minimize all Windows" minimizes all Windows even if they don''t have a minimize button.
The following code will prevent a form from minimizing through windows.

Die Funktion "Alle Fenster minimieren" aus der Windows Taskbar minimiert alle Fenster, auch solche die eigentlich keine Minimieren-Schaltflдche besitzen. Der folgende Code verhindert das Minimieren eines Fensters.

 implementation

 procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
 begin
   if not Msg.Show then
     Msg.Result := 0
   else
     inherited;
 end;