Reduire + hideRésolu

Question

bonjour a tous,

je vaudrai bien si quelqu'un a une id&#233;e pour que mon application ce cache si on l a fait r&#233;duire

N.B: jutilise systray pour permettre a utilisateur de voir que l'app et on marche



Merci pour votre aide mes amies

jinh68 · Accepted Answer

Salut, tu peux intercepter l'&#233;v&#232;nement OnMinimize de TApplication et ainsi cacher ton appli:



type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

    { D&#233;clarations priv&#233;es }

    procedure AppMinimize(Sender: TObject);

  public

    { D&#233;clarations publiques }

  end;



var

  Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnMinimize := AppMinimize;

end;



procedure TForm1.AppMinimize(Sender: TObject);

begin

ShowWindow(Application.handle,SW_HIDE);

end;



Bonne Prog

j!nH

toysf · Answer

Merci infiniment pour t as reponse



et a++++ delphiens

Reduire + hide

2 réponses

Votre réponse