开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
utrayicon.pas
资源名称：varian_led_studio_3.34.rar　[点击查看]
上传用户：hbszzs
上传日期：2008-08-20
资源大小：628k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

utrayicon.pas：源码内容
  1. unit utrayicon;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   VrControls, VrSystem, ComCtrls, StdCtrls, VrBorder, Menus;
  9. type
  10.   TForm1 = class(TForm)
  11.     StatusBar1: TStatusBar;
  12.     CheckBox1: TCheckBox;
  13.     CheckBox2: TCheckBox;
  14.     VrBorder1: TVrBorder;
  15.     PopupMenu1: TPopupMenu;
  16.     pmExit: TMenuItem;
  17.     CheckBox3: TCheckBox;
  18.     CheckBox4: TCheckBox;
  19.     pmShowApplication: TMenuItem;
  20.     N1: TMenuItem;
  21.     pmHideApplication: TMenuItem;
  22.     CheckBox5: TCheckBox;
  23.     VrTrayIcon1: TVrTrayIcon;
  24.     procedure VrTrayIcon21MouseMove(Sender: TObject; Shift: TShiftState; X,
  25.       Y: Integer);
  26.     procedure CheckBox1Click(Sender: TObject);
  27.     procedure CheckBox2Click(Sender: TObject);
  28.     procedure pmExitClick(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure CheckBox3Click(Sender: TObject);
  31.     procedure CheckBox4Click(Sender: TObject);
  32.     procedure VrTrayIcon21Click(Sender: TObject);
  33.     procedure VrTrayIcon21DblClick(Sender: TObject);
  34.     procedure pmShowApplicationClick(Sender: TObject);
  35.     procedure pmHideApplicationClick(Sender: TObject);
  36.     procedure CheckBox5Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   Form1: TForm1;
  46. implementation
  48. {$R *.DFM}
  50. procedure TForm1.FormCreate(Sender: TObject);
  51. begin
  52.   VrTrayIcon1.Hint := Application.Title;
  53. end;
  55. procedure TForm1.VrTrayIcon21MouseMove(Sender: TObject; Shift: TShiftState;
  56.   X, Y: Integer);
  57. begin
  58.   StatusBar1.Panels[0].Text := Format('X=%d, Y=%d', [X, Y]);
  59. end;
  61. procedure TForm1.pmExitClick(Sender: TObject);
  62. begin
  63.   Application.Terminate;
  64. end;
  66. procedure TForm1.CheckBox1Click(Sender: TObject);
  67. begin
  68.   VrTrayIcon1.Enabled := CheckBox1.Checked;
  69. end;
  71. procedure TForm1.CheckBox2Click(Sender: TObject);
  72. begin
  73.   VrTrayIcon1.Visible := CheckBox2.Checked;
  74. end;
  76. procedure TForm1.CheckBox3Click(Sender: TObject);
  77. begin
  78.   VrTrayIcon1.ShowHint := CheckBox3.Checked;
  79. end;
  81. procedure TForm1.CheckBox4Click(Sender: TObject);
  82. begin
  83.   VrTrayIcon1.LeftBtnPopup := CheckBox4.Checked;
  84. end;
  86. procedure TForm1.VrTrayIcon21Click(Sender: TObject);
  87. begin
  88.   StatusBar1.Panels[1].Text := 'Click';
  89. end;
  91. procedure TForm1.VrTrayIcon21DblClick(Sender: TObject);
  92. begin
  93.   StatusBar1.Panels[1].Text := 'Double Click';
  94. end;
  96. procedure TForm1.pmShowApplicationClick(Sender: TObject);
  97. begin
  98.   VrTrayIcon1.ShowMainForm;
  99. end;
  101. procedure TForm1.pmHideApplicationClick(Sender: TObject);
  102. begin
  103.   VrTrayIcon1.HideMainForm;
  104. end;
  106. procedure TForm1.CheckBox5Click(Sender: TObject);
  107. begin
  108.   VrTrayIcon1.HideTaskBtn := CheckBox5.Checked;
  109. end;
  111. end.