Cita:
Empezado por esocrates
Hola xEsk:
¿Podrías explicarlo con un ejemplo?
No logro resultado con esta indicación.
Muchas gracias
Saludos
|
Faltaría mas!
Pon estos tres componentes:
TTrayIcon,
TPopupMenu y un
TApplicationEvents.
Crea una nueva opción al TPopupMenu para poder programar la opción de "Restaurar".
Ahora asígnale este TPopupMenu al TTrayIcon.
El código a programar sería algo así:
Código Delphi
[-]procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
Hide;
TrayIcon1.Visible:=True;
end;
procedure TForm1.Mostrarformulario1Click(Sender: TObject);
begin
Show;
WindowState:=wsNormal;
TrayIcon1.Visible:=False;
end;
Como ves, realmente no tenia ningún secreto! Espero que ahora si te funcione.
Saludos.