Subversion Repositories delphiutils

Rev

Rev 42 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, QuerySystemMenu, Menus;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     CheckBox1: TCheckBox;
  12.     Timer1: TTimer;
  13.     Label1: TLabel;
  14.     MainMenu1: TMainMenu;
  15.     N12231: TMenuItem;
  16.     N123124235425541: TMenuItem;
  17.     N45koiaejfunsdkf1: TMenuItem;
  18.     erlknf1: TMenuItem;
  19.     fkjn1: TMenuItem;
  20.     fe1: TMenuItem;
  21.     flmnakwjfnajwrngl1: TMenuItem;
  22.     ewfkjanwrgboinginrginaikrwngka1: TMenuItem;
  23.     asdasdjknsafjnaskfnakjf1: TMenuItem;
  24.     askfnjakfnkjasndfkjandf1: TMenuItem;
  25.     fkjafnjkasndf1: TMenuItem;
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure FormDestroy(Sender: TObject);
  28.     procedure Timer1Timer(Sender: TObject);
  29.     procedure SysMenuOpened(Sender: TObject);
  30.     procedure SysMenuClosed(Sender: TObject);
  31.   private
  32.     x: TQuerySystemMenu;
  33.   end;
  34.  
  35. var
  36.   MainForm: TMainForm;
  37.  
  38. implementation
  39.  
  40. {$R *.dfm}
  41.  
  42. procedure TMainForm.SysMenuOpened(Sender: TObject);
  43. begin
  44.   CheckBox1.Checked := true;
  45.   Label1.Caption := TimeToStr(Now());
  46. end;
  47.  
  48. procedure TMainForm.SysMenuClosed(Sender: TObject);
  49. begin
  50.   CheckBox1.Checked := false;
  51.   Label1.Caption := TimeToStr(Now());
  52. end;
  53.  
  54. procedure TMainForm.FormCreate(Sender: TObject);
  55. begin
  56.   x := TQuerySystemMenu.Create(Handle);
  57.   x.OnSystemMenuOpen := SysMenuOpened;
  58.   x.OnSystemMenuClose := SysMenuClosed;
  59. end;
  60.  
  61. procedure TMainForm.FormDestroy(Sender: TObject);
  62. begin
  63.   x.Destroy;
  64. end;
  65.  
  66. procedure TMainForm.Timer1Timer(Sender: TObject);
  67. begin
  68.   // CheckBox1.Checked := x.IsSystemMenuOpened;
  69. end;
  70.  
  71. end.
  72.