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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: 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;

{/codecitation}

Добавить комментарий