Fórum programa na barra de tarefas #170549

Meu email e alexandre@ciacouro.com.br, você tem esse fonte que coloca na barra de tarefas, eu posso estuda-los com algumas API´S.

Vc tem o fonte desse aplicativo que vc quer fazer, talves lhe ajude tenho alguns api´s que pode ajudar, me mande o fonte alexandre@ciacouro.com.br.

unit U_Principal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, VrControls, VrSystem;

type
TF_Principal = class(TForm)
MainMenu1: TMainMenu;
Menu1: TMenuItem;
biblioteca1: TMenuItem;
banco1: TMenuItem;
agenda1: TMenuItem;
conversa1: TMenuItem;
VrTrayIcon1: TVrTrayIcon;
PopupMenu1: TPopupMenu;
show1: TMenuItem;
Close1: TMenuItem;
procedure biblioteca1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure show1Click(Sender: TObject);
procedure Close1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Menu1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
F_Principal: TF_Principal;
fecharprog : boolean;
implementation

uses U_Agenda;

{$R *.dfm}

procedure TF_Principal.biblioteca1Click(Sender: TObject);
begin
F_Agenda.showmodal;
end;

procedure TF_Principal.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if fecharprog = false then
begin
canclose := false;
F_Principal.hide;
end;
end;

procedure TF_Principal.show1Click(Sender: TObject);
begin
F_Principal.show;
end;

procedure TF_Principal.Close1Click(Sender: TObject);
begin
fecharprog := true;
F_Principal.close;
end;

procedure TF_Principal.FormCreate(Sender: TObject);
begin
fecharprog := false;
end;

procedure TF_Principal.Menu1Click(Sender: TObject);
begin
fecharprog := true;
close;
end;

end.