Subversion Repositories delphiutils

Rev

Rev 41 | Rev 59 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
41 daniel-mar 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;
42 daniel-mar 13 
    Label1: TLabel;
41 daniel-mar 14 
    procedure FormCreate(Sender: TObject);
15 
    procedure FormDestroy(Sender: TObject);
16 
    procedure Timer1Timer(Sender: TObject);
42 daniel-mar 17 
    procedure SysMenuOpened(Sender: TObject);
18 
    procedure SysMenuClosed(Sender: TObject);
41 daniel-mar 19 
  private
20 
    x: TQuerySystemMenu;
21 
  end;
22 
 
23 
var
24 
  MainForm: TMainForm;
25 
 
26 
implementation
27 
 
28 
{$R *.dfm}
29 
 
42 daniel-mar 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 
 
41 daniel-mar 42 
procedure TMainForm.FormCreate(Sender: TObject);
43 
begin
44 
  x := TQuerySystemMenu.Create(Handle);
42 daniel-mar 45 
  x.OnSystemMenuOpen := SysMenuOpened;
46 
  x.OnSystemMenuClose := SysMenuClosed;
41 daniel-mar 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
42 daniel-mar 56 
  // CheckBox1.Checked := x.IsSystemMenuOpened;
41 daniel-mar 57 
end;
58 
 
59 
end.