Fórum Executável não tem opção de Fixar na Barra de Tarefas #430702
07/12/2012
0
Pessoal já pesquisei bastante e não encontrei resposta. Não consigo colocar meu executável na barra de tarefa
do windows, já tentei tudo, mudei tamanho do ícone, coloquei um que já uso em outra aplicação que funciona normalmente,
mas não consegui. Alguém saberia me dizer o motivo disso está acontecendo?
Desde já obrigado...
do windows, já tentei tudo, mudei tamanho do ícone, coloquei um que já uso em outra aplicação que funciona normalmente,
mas não consegui. Alguém saberia me dizer o motivo disso está acontecendo?
Desde já obrigado...
Rafael Mota
Curtir tópico
+ 0
Responder
Posts
07/12/2012
Gilvanio Gonçalves
// Incluir a unit ShellApi
// No Private do Form Principal Colocar:
// No Public do Form Principal Colocar:
// Implementá-la:
// Procedimento será executado após clicar o o botão direito do mouse em cima do ícone, nesse exemplo irá abrir um popup sobre ele
// No Evento FormCreate do Form Principal Colocar:
// No Evento FormDestroy do Form Principal Colocar:
//Retira o icone ao finalizar aplicação
// No Private do Form Principal Colocar:
Nid : TNotifyIconData;
// No Public do Form Principal Colocar:
procedure IconTray(Msg: TMessage);
// Implementá-la:
procedure TForm1.IconTray(Msg: TMessage);
var Pt:Tpoint;
begin
if (Msg.LParamHi = wm_rbuttondown) then begin
GetCursorPos(Pt);
PopupMenu1.Popup(Pt.x,Pt.y);
end;
end;// Procedimento será executado após clicar o o botão direito do mouse em cima do ícone, nesse exemplo irá abrir um popup sobre ele
// No Evento FormCreate do Form Principal Colocar:
Nid.cbsize := sizeof(nid);
Nid.wnd := Handle;
Nid.uID := 1;
Nid.uCallbackMessage := wm_rbuttondown;
Nid.hIcon := Application.Icon.Handle;
Nid.sztip := 'Nome do Progarama'; //Mensagem que aparece ao passar o mouse em cima do icone
Nid.uFlags := Nif_Message or Nif_Icon or Nif_Tip;
Shell_NotifyIcon(Nim_Add,@Nid);// No Evento FormDestroy do Form Principal Colocar:
Nid.uFlags:=0;
Shell_NotifyIcon(Nim_Delete, @nid);//Retira o icone ao finalizar aplicação
Responder
Gostei + 0
08/12/2012
Rafael Mota
Acho que não me expressei bem, o problema é o seguinte:
Como você sabe a grande maiorias dos executáveis ao receberem um clique com o botão direito do mouse nos dão
a opção FIXAR NA BARRA DE TAREFAS, isso é muito útil pra programas que usamos com frequência. Todas as aplicações que faço
me dão essa opção, mas essa ta atrevida, já cliquei com direito, já tentei arrastar e nada...
A minha dúvida é se isso é alguma configuração no meu Delphi (Uso o XE).
Mas uma Vez, muito obrigado pela Atenção...
Como você sabe a grande maiorias dos executáveis ao receberem um clique com o botão direito do mouse nos dão
a opção FIXAR NA BARRA DE TAREFAS, isso é muito útil pra programas que usamos com frequência. Todas as aplicações que faço
me dão essa opção, mas essa ta atrevida, já cliquei com direito, já tentei arrastar e nada...
A minha dúvida é se isso é alguma configuração no meu Delphi (Uso o XE).
Mas uma Vez, muito obrigado pela Atenção...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)