F�rum TryIco [Ajuda] #396599

02/03/2011

boa noite.
to com uma duvida como faco para usar o TryIco do D2009?
ate consequi usar ele mais meu form ficou no menu iniciar como facor p ele sumir de vez ficar so o icone do lado do relogio?

Adriano Carvalho

Curtir t�pico

+ 0

Responder

Posts

03/03/2011

Wilson Junior

Inclua dois componentes:
ApplicationEvents1: TApplicationEvents;
tiPrincipal: TTrayIcon;

No evento OnMinimize do ApplicationEvents1 coloque:

procedure ApplicationEvents1Minimize(Sender: TObject);
begin 
  tiPrincipal.Visible := True; 
  Application.Minimize; 
  Self.Hide; 
end;

No evento OnRestore do ApplicationEvents1 coloque:


procedure ApplicationEvents1Restore(Sender: TObject);
begin

  Self.Show;

  Application.BringToFront;

  tiPrincipal.Visible := False;

end;

No evento OnClick do tiPrincipal coloque:


procedure tiPrincipalClick(Sender: TObject);
begin

  Application.Minimize;

  Application.Restore;

end;

Espero ter colaborado.

Responder

Gostei + 0