Rev 42 | 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, |
||
| 59 | daniel-mar | 7 | Dialogs, StdCtrls, ExtCtrls, QuerySystemMenu, Menus; |
| 41 | daniel-mar | 8 | |
| 9 | type |
||
| 10 | TMainForm = class(TForm) |
||
| 11 | CheckBox1: TCheckBox; |
||
| 12 | Timer1: TTimer; |
||
| 42 | daniel-mar | 13 | Label1: TLabel; |
| 59 | daniel-mar | 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; |
||
| 41 | daniel-mar | 26 | procedure FormCreate(Sender: TObject); |
| 27 | procedure FormDestroy(Sender: TObject); |
||
| 28 | procedure Timer1Timer(Sender: TObject); |
||
| 42 | daniel-mar | 29 | procedure SysMenuOpened(Sender: TObject); |
| 30 | procedure SysMenuClosed(Sender: TObject); |
||
| 41 | daniel-mar | 31 | private |
| 32 | x: TQuerySystemMenu; |
||
| 33 | end; |
||
| 34 | |||
| 35 | var |
||
| 36 | MainForm: TMainForm; |
||
| 37 | |||
| 38 | implementation |
||
| 39 | |||
| 40 | {$R *.dfm} |
||
| 41 | |||
| 42 | daniel-mar | 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 | |||
| 41 | daniel-mar | 54 | procedure TMainForm.FormCreate(Sender: TObject); |
| 55 | begin |
||
| 56 | x := TQuerySystemMenu.Create(Handle); |
||
| 42 | daniel-mar | 57 | x.OnSystemMenuOpen := SysMenuOpened; |
| 58 | x.OnSystemMenuClose := SysMenuClosed; |
||
| 41 | daniel-mar | 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 |
||
| 42 | daniel-mar | 68 | // CheckBox1.Checked := x.IsSystemMenuOpened; |
| 41 | daniel-mar | 69 | end; |
| 70 | |||
| 71 | end. |