(Resolvido) Minimizando

[Guest]

Olá pessoal, em tempos venho acompanhando o forum... sou iniciante em delphi e agora me deparei com uma pequena duvida...

Já criei diverssos programas (faceis e pequenos).

Agora estou em um Projeto de um HoneyPot e queria acrescentar ao programa o botao de minimizar, so que ele minimize la em baixo perto do relogio...

Se alguém poder me ajudar ficaria grato...

Abraços

[Micheus]

Agora estou em um Projeto de um HoneyPot e queria acrescentar ao programa o botao de minimizar, so que ele minimize la em baixo perto do relogio...

- Instale o componente SyTray (muito simples e fácil de utilizar);

- Adicione ele ao seu form principal;

- Coloque no seu form principal um TPopUpMenu com opções para mostrar o form, encerrar o programa, ...;

- Associe este popup menu a respectiva propriedade no componente SysTray;

Para evitar que ao clicar no X da sua janela, o seu programa seja encerrado, sugiro a você que utilizar uma variável (p.e. definida na cláusula private do seu form) para controlar quando você quer realmente encerrar o programa. Seria mais ou menos algo assim:

// inicializa variável de controle no OnCreate do form
procedure TForm1.Form1Create(Sender :TObject);
begin
  IndFechaApp := False;
  ...
end;
// no evento OnClose, só fecha se a variável permitir
procedure TForm1.Form1Close(Sender :TObject; CanClose :Boolean);
begin
  CanClose := IndFechaApp;
 // se não for permitido fechar, minimizamos na tray
  if not CanClose then
    Application.Minimize;
end;
// no evento OnClick do popup menu, da opção Sair, inicializa a variável com true viabilizando a sua saída
procedure TForm1.Popupmenuitem1Click(Sender :TObject);
begin
  ...
  IndFechaApp := True;
  Close;
end;

Com isto, ao clicar no X ou no minimizar, seu programa irá pra a Tray.

Abraços

[biakeffer]

oi...essa tb é minha duvida...porém

"Instale o componente SyTray (muito simples e fácil de utilizar);"

como faço pra instalar o sytray???

[Micheus]

"Instale o componente SyTray (muito simples e fácil de utilizar);"

como faço pra instalar o sytray???

biakeffer, você pode siguir os passos que o colega Jhonas descreve neste post.

Abraços

[biakeffer]

oi, não estou encontrando a opção Component > Instal Component... como descrito lá,

tipo as opções que eu tenho no menu componet são:

Installed components .net

new vcl component

Install packages

Import components

eu uso delphi 2005

[Micheus]

oi, não estou encontrando a opção Component > Instal Component... como descrito lá,

...

eu uso delphi 2005

ah!!! bão...

tenta a opção "new vcl component"

[biakeffer]

não consegui...:(

[Jhonas]

Veja este Post

http://scriptbrasil.com.br/forum/index.php...st&p=498578

abraço

[biakeffer]

vlw...obrigada!

[biakeffer]

oieee....agora que consegui instalar o componente systray fiz isso:

- Instale o componente SyTray (muito simples e fácil de utilizar);

- Adicione ele ao seu form principal;

- Coloque no seu form principal um TPopUpMenu com opções para mostrar o form, encerrar o programa, ...;

mas não esta dando certo quando eu minimizo a janela some mas não aparece nenhum icone em baixo perto do relogio pra que eu possa clicar e colocar pra executa-lo novamente.

[Jhonas]

mas não esta dando certo quando eu minimizo a janela some mas não aparece nenhum icone em baixo perto do relogio pra que eu possa clicar e colocar pra executa-lo novamente.

Veja se voce não esqueceu de colocar um icone na propriedade icon, se não não aparece.

abraço

[biakeffer]

Veja se voce não esqueceu de colocar um icone na propriedade icon, se não não aparece.

abraço

não....tipo, quando eu coloco um icone na propriedade icon não aparece nada perto do relogio ai eu experimentei tirar o icone de la ai aparece o icone perto do relogio, mas ai quando eu passo o mouse em cima dele ele desaparece

[Jhonas]

não....tipo, quando eu coloco um icone na propriedade icon não aparece nada perto do relogio ai eu experimentei tirar o icone de la ai aparece o icone perto do relogio, mas ai quando eu passo o mouse em cima dele ele desaparece

estranho... aqui eu coloco um icone na propriedade icon e linko este componente a um outro chamado PopupMenu1

( itens de menu ) e deixo a propriedade active como true... e utilizo o evento OnClick para utiliza-lo .... funciona perfeitamente.

abraço

[biakeffer]

estranho... aqui eu coloco um icone na propriedade icon e linko este componente a um outro chamado PopupMenu1

( itens de menu ) e deixo a propriedade active como true... e utilizo o evento OnClick para utiliza-lo .... funciona perfeitamente.

tem que deixar active como true em que?no popupmenu? e o que tem que ser colocado no evento onClick?

[Jhonas]

Veja as propriedades e os eventos que o componente possui. O active é do componente SyTray ... o popupmenu é linkado a ele ( onde estão os itens de menu que voce quer executar ) . Os outros eventos voce usa da maneira que achar melhor ( OnClick, OnDblClick, OnMouseDown, OnMouseMove..etc ) da mesma maneira que voce usaria em um form.

abraço

[Micheus]

biakeffer, deve ser algum detalhe. Observe que são poucas as propriedades deste componente.

Tenho um exemplo aqui, que não tem icone setado, não tem popup - tudo no default - e ao clicar no minimizar na barra de título, a janela "some" e o ícone dela vai parar na tray. Ao dar duplo click no ícone que ficou na tray, ela é reapresentada.

Lembrando apenas, que este componente não mantém o ícone na tray, quando a janela está restaurada - voce só o vê lá quando apenas quando a janela é minimizada.

Abraços

Editado Outubro 17, 2008 por Micheus

[biakeffer]

pois é...eu já olhei todas as propriedades...coloquei aqui ele todo no default tb e sem popup e mesmo assim quando eu clico pra minimizar a janela some o icone vai para a tray porem quando eu vou dar o duplo click pra poder ser reapresentada só de passar o mouse em cima do ícone ele some...não entendo o que pode estar acontecendo :(

Fazendo os testes aqui em um momento deu esse erro:

"raised exception class eexternalException with message 'Extenal exception C000001E'!"

que tb não sei o que pode ser, mas ai eu tirei o componente e coloquei tudo de novo e parou de dar o erro, mas continua sumindo quando eu passo o mouse no icone na tray :(

[Micheus]

pois é...eu já olhei todas as propriedades...coloquei aqui ele todo no default tb e sem popup e mesmo assim quando eu clico pra minimizar a janela some o icone vai para a tray porem quando eu vou dar o duplo click pra poder ser reapresentada só de passar o mouse em cima do ícone ele some...não entendo o que pode estar acontecendo :(

biakeffer, veja com oeste exemplo simplista se comporta ai na sua estação de trabalho: TSTSysTray.zip

Se o resultado for positivo, no pacote está a versão do SysTray que eu usei.

Abraços

[biakeffer]

:rolleyes: Obrigaduuuuu....agora deu tudo certinho!!!

abraços!