Criar outro bot�o no form ao lado do minimizar.

Question

Preciso acrescentar um bot�o no formul�rio, antes do minimizar, com o intuito de levar a aplica��o para o Systray. N�o encontrei nada sobre como criar este bendito bot�o. Algu�m sabe algo a respeito??...

Flavia Santos · Answer

Amigo,Existe componentes que fazem isso, um exemplo � o TrayIcon da Jedi, ele � free e bem f�cil de usar.Da uma olhada nesse link: //sourceforge.net/projects/jvcl/files/Abs,...

Claudia Nogueira · Answer

Realmente eu n�o fa�o a menor ideia se tem como voc� colocar um novo bot�o na barra, por�m pelo que d� a entender, o que voc� quer � deixar seu sistema no SysTray quando os bot�es minimizar e fechar forem acionados.
Conforme a colega falou, o componente � o TrayIcon, por�m tem componente nativo nas vers�es recentes do Delphi.
Fa�a uma aplica��o de exemplo:
Crie uma nova aplica��o;
Coloque um componente TPopupMenu com as op��es Restaurar, Minimizar e Fechar;
Coloque um componente TTrayIcon, deixe a propriedade Visible = True e vincule o TPopupMenu na propriedade PopupMenu;
No private do form declare uma vari�vel: bSair : Boolean;
No OnCreate coloque o seguinte c�digo:

  bSair := False;
  Application.OnMinimize := Minimizar1Click;

No OnClose coloque o seguinte c�digo:

  if not bSair then
  begin
    Minimizar1Click(Sender);
    Abort;
  end;

No OnClick do Minimizar1 coloque:

  Restaurar1.Enabled := True;
  Minimizar1.Enabled := False;
  Form2.Visible := False;

No OnClick do Restaurar1 coloque:

  Restaurar1.Enabled := False;
  Minimizar1.Enabled := True;
  Form2.Visible := True;
  Application.Restore;

E no OnClick do Fechar1 coloque:

  bSair := True;
  Close;

Me desculpe se n�o for isso que voc� pediu.

F�rum Criar outro bot�o no form ao lado do minimizar. #430812