Fórum Sistema na bandeja do relógio mas como fazer quando minimiza #166284
25/06/2003
0
Mas quando eu abro a aplicação e minimizo novamente, além de ficar na bandeja fica na barra de tarefas também (o que não é pra acontecer)
Alguem tem alguma solução ?
with NotifyIconData do
begin
// cbSize tem o tamanho da estrutura
cbSize := Sizeof(TNotifyIconData);
// Wnd é a janela que recebera as mensagens
Wnd := Self.Handle;
// uId é a identificação do ícone , para o caso de muitos ícones
uId := 0;
// uCallbackMessage é o número da mensagem que será enviada quando houver eventos no ícone
uCallbackMessage := WM_TRAYICON;
// uFlags indica quais os campos da estrutura são válidos
uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
// hIcon indica o ícone que será colocado na barra de tarefas
hIcon := Application.Icon.Handle;
// szTip é a dica que aparece
szTip := ´Win2Unix File Transfer´
end;
// adiciona o ícone
Shell_NotifyIcon(NIM_ADD,@NotifyIconData);
Nelsonota
Curtir tópico
+ 0Posts
25/06/2003
Thaisandrade
Application.OnMinimize:= EscondeForm;
procedure TForm1.EscondeForm(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_HIDE);
end;
Eu uso de forma diferente, só escondo da barra de tarefas quando o form é fechado... mas acho que com alguma modificação vai funcionar quando minimizar também.
Gostei + 0
26/06/2003
Msd
Gostei + 0
26/06/2003
Msd
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)