unitmestre.pas

来自「Fontes e exemplos CALLER ID DELPHI」· PAS 代码 · 共 58 行

unit UnitMestre;

interface

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

type
  TFormMestre = class(TForm)
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    Abrir1: TMenuItem;
    Sair1: TMenuItem;
    N1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Sair1Click(Sender: TObject);
    procedure CoolTrayIcon1Click(Sender: TObject);
  private

  public
   end;

var
  FormMestre: TFormMestre;
  
implementation

uses Unit1;

{$R *.dfm}


procedure TFormMestre.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := FALSE;
CoolTrayIcon1.IconVisible := TRUE;
end;

procedure TFormMestre.Abrir1Click(Sender: TObject);
begin
FormTexto.Show;
end;

procedure TFormMestre.Sair1Click(Sender: TObject);
begin
 FormTexto.micDTMFBox1.Stop;
 Application.Terminate;
end;

procedure TFormMestre.CoolTrayIcon1Click(Sender: TObject);
begin
  CoolTrayIcon1.PopupAtCursor;
end;

end.