Subversion Repositories delphiutils

Rev

Rev 41 | 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;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     CheckBox1: TCheckBox;
  12.     Timer1: TTimer;
  13.     Label1: TLabel;
  14.     procedure FormCreate(Sender: TObject);
  15.     procedure FormDestroy(Sender: TObject);
  16.     procedure Timer1Timer(Sender: TObject);
  17.     procedure SysMenuOpened(Sender: TObject);
  18.     procedure SysMenuClosed(Sender: TObject);
  19.   private
  20.     x: TQuerySystemMenu;
  21.   end;
  22.  
  23. var
  24.   MainForm: TMainForm;
  25.  
  26. implementation
  27.  
  28. {$R *.dfm}
  29.  
  30. procedure TMainForm.SysMenuOpened(Sender: TObject);
  31. begin
  32.   CheckBox1.Checked := true;
  33.   Label1.Caption := TimeToStr(Now());
  34. end;
  35.  
  36. procedure TMainForm.SysMenuClosed(Sender: TObject);
  37. begin
  38.   CheckBox1.Checked := false;
  39.   Label1.Caption := TimeToStr(Now());
  40. end;
  41.  
  42. procedure TMainForm.FormCreate(Sender: TObject);
  43. begin
  44.   x := TQuerySystemMenu.Create(Handle);
  45.   x.OnSystemMenuOpen := SysMenuOpened;
  46.   x.OnSystemMenuClose := SysMenuClosed;
  47. end;
  48.  
  49. procedure TMainForm.FormDestroy(Sender: TObject);
  50. begin
  51.   x.Destroy;
  52. end;
  53.  
  54. procedure TMainForm.Timer1Timer(Sender: TObject);
  55. begin
  56.   // CheckBox1.Checked := x.IsSystemMenuOpened;
  57. end;
  58.  
  59. end.
  60.