» Utilizator
Salut, vizitatorule!

SkullBox este o comunitate formata din programatori si administratori de sisteme sau retele care iti sta la dispozitie cand ai o problema legata de calculatoare. Daca esti un utilizator existent, autentifica-te.

Daca nu te-ai inregistrat inca pe forum, alatura-te noua astfel marind comunitatea si ajutandu-i pe cei care au nevoie de informatii.

Daca te-ai inregistrat dar inca nu ai primit codul de activare, il poti cere aici.




Autentifica-te cu numele de utilizator si parola pentru a putea posta pe forum sau pentru a accesa ariile disponibile doar utilizatorilor inregistrati.
» Promovam
» Parteneri » Statistici
  • 59774 de mesaje.
  • 7153 de topicuri.
  • 1000 de utilizatori.
  •  
  • PatentLawer e ultimul utilizator inregistrat.
[Detalii]

 
Pagini: [1]
Print
Anti-minimize [Delphi] [838 afisari]
DarkByte
*


Mesaje: 3333
OfflineOffline

WWW

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

Document my code? Why do you think it's called "code"?

To think is to differ - Clarence Darrow
27-01-2008, 13:04 Twitt ::
Reclama
VIP

Hosting

Mesaje: 25.90
OnlineOnline

WWW
 

   Pe ABCDomenii: 250MB spatiu + 20GB trafic + 5 subdomenii = 0.95 €
 
 

The problem with troubleshooting is that trouble shoots back.
Azi 
Pages: [1]
Print
SkullBox Forum  |  Development  |  Delphi & Pascal  |  Pascal / Delphi Snippets  |  Topic: Anti-minimize [Delphi]
Jump to: