appcform.pas

Delphi高级开发指南是开发程序的好帮手

unit AppCForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DdhAppX, StdCtrls, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    DdhAppExt1: TDdhAppExt;
    Label1: TLabel;
    PopupMenu1: TPopupMenu;
    Message1: TMenuItem;
    About1: TMenuItem;
    Close1: TMenuItem;
    N1: TMenuItem;
    cbTray: TCheckBox;
    Edit1: TEdit;
    Label2: TLabel;
    Bevel1: TBevel;
    procedure DdhAppExt1Activate(Sender: TObject);
    procedure DdhAppExt1Deactivate(Sender: TObject);
    procedure Message1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure cbTrayClick(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.DdhAppExt1Activate(Sender: TObject);
begin
  Label1.Caption := 'Active Application';
  Label1.Font.Color := clGreen;
end;

procedure TForm1.DdhAppExt1Deactivate(Sender: TObject);
begin
  Label1.Caption := 'Inactive Application';
  Label1.Font.Color := clRed;  
end;

procedure TForm1.Message1Click(Sender: TObject);
begin
  ShowMessage ('Place your message here');
end;

procedure TForm1.About1Click(Sender: TObject);
begin
  ShowMessage ('DdhAppExt component demo');
end;

procedure TForm1.Close1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.cbTrayClick(Sender: TObject);
begin
  DdhAppExt1.TrayIconActive := cbTray.Checked;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  DdhAppExt1.TrayHint := Edit1.Text;
end;

end.