» Utilizator
LAMP
» Parteneri» De citit» Recomandari» Taskuri securitate » Statistici
  • 65486 de mesaje.
  • 7732 de topicuri.
  • 1231 de utilizatori.
  •  
  • Kopotosa e ultimul utilizator inregistrat.
[Detalii]

 

| |
Pagini: [1]
Print

Anti-minimize [Delphi] [927 afisari]

DarkByte



Mesaje:

Windows poate minimiza toate ferestrele vizibile pe ecran la un moment dat prin comanda "Minimize All" (Win + M) ... ce facem daca nu vrem ca fereastra noastra sa pateasca la fel ?

Codul de jos va impiedica Windows-ul sa-si faca de cap cu fereastra voastra Big grin

Code:
interface
...
private
    procedure WMShowWindow(var Msg: TWMShowWindow); message WM_ShowWindow;
...
implementation
...
procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
begin
  if not Msg.Show then
    Msg.Result := 0
  else
    inherited;
end;
...
Am marcat cu interface si implementation unde vine fiecare bucatica de cod.

P.S. nici de la butonul de Minimize nu va putea fi minimizata fereastra, so ... enjoy Tongue

Bafta
Logged
27-01-2008, 13:04 Twitt ::
Pagini: [1]
Print
SkullBox Forum  |  Development  |  Delphi & Pascal  |  Topic: Anti-minimize [Delphi]