Icone Na Bandeja

[Guest - Bruno -]

eu quero sabe como eu faço pra, quando alguém clica num botao, o Form1 seja ocultado e, um icone seja colocado no tray do sistema (na bandeja), e, quando clicarem nesse icone o form reaparece, porém, o form1 tem q continuar sendo executado o tempo todo, ou, enviar suas variaveis para o icone, e quando for reaberto o icone envia elas de volta para o form1. vlw pela ajuda!

[paulobergo]

Oi. Eu uso um componente (cool tray icon)...

Faço com que o aplicativo que eu quiser funcione "minimizado" na "systray", podendo abrir o form (e também escondê-lo) quando quiser)....

Se desejar, posso enviar o comp. por email...

[WarLock2010]

Oi. Eu uso um componente (cool tray icon)...

Faço com que o aplicativo que eu quiser funcione "minimizado" na "systray", podendo abrir o form (e também escondê-lo) quando quiser)....

Se desejar, posso enviar o comp. por email...

ae mano tem como me ensinar a usar esse CoolTray icon para quando eu clicar no botão minizar da aplicação ele ir para o tray

[Progr'amador]

Olá,

nesse link abaixo, você encontra varios demos como exemplo, inclusive o que você quer.

http://www.songbeamer.com/delphi/

Abs. Progr'amador

[ivomar]

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

ShellAPI, { Unit para criar icone no Systray }

const

wm_IconMessage = wm_User;

private

{ Private declarations }

procedure TrataErros(Sender: TObject; E: Exception);

procedure IconTray (var Msg: TMessage);

message wm_IconMessage;

public

{ Public declarations }

nid: TNotifyIconData;

procedure TForm1.FormCreate(Sender: TObject);

begin

{ Criando TrayIcon, e copiando Icone do Form }

Icon.Handle := LoadIcon (HInstance, 'MAINICON');

nid.cbSize := sizeof (nid);

nid.wnd := Handle;

nid.uID := 1; // Identificador do ícone

nid.uCallBAckMessage := wm_IconMessage;

nid.hIcon := Icon.Handle;

nid.szTip := 'IVM Update';

nid.uFlags := nif_Message or

nif_Icon or nif_Tip;

Shell_NotifyIcon (NIM_ADD, @nid);

Caption := 'IVM Update - Software Auto-Atualização';

Application.OnException := TrataErros ;

Application.OnMinimize := Ocultar1Click ;

Application.OnRestore := Restaurar1Click ;

Application.Title := Caption ;

Application.HintHidePause := 5000 ;

Ocultar1.Click;

end;

procedure TForm1.Restaurar1Click(Sender: TObject);

begin

Application.ShowMainForm := true ;

Visible := true ;

Application.Restore ;

Application.BringToFront ;

Application.ProcessMessages ;

end;

procedure TForm1.Ocultar1Click(Sender: TObject);

begin

Visible := false ;

Application.ShowMainForm := false ;

Application.ProcessMessages ;

end;

procedure TForm1.IconTray(var Msg: TMessage);

var

Pt: TPoint;

begin

if Msg.lParam = WM_RBUTTONDOWN then

begin

GetCursorPos (Pt);

pmTray.Popup (Pt.x, Pt.y);

end

else

if Msg.lParam = WM_LBUTTONDBLCLK then

if Visible then

Ocultar1.Click

else

Restaurar1.Click;

end;

procedure TForm1.TrataErros(Sender: TObject; E: Exception);

begin

ShowMessage('Exception: ' + E.Message);

StatusBar1.Panels[0].Text := 'Exception' ;

end;

procedure TForm1.Encerrar1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

nid.uFlags := 0;

Shell_NotifyIcon (NIM_DELETE, @nid);

// Timer1.Enabled := false ;

end;

Testa assim,

Abraço