| 23,11 → 23,16 |
|---|
| asdasdjknsafjnaskfnakjf1: TMenuItem; |
| askfnjakfnkjasndfkjandf1: TMenuItem; |
| fkjafnjkasndf1: TMenuItem; |
| Button1: TButton; |
| Edit1: TEdit; |
| Timer2: TTimer; |
| procedure FormCreate(Sender: TObject); |
| procedure FormDestroy(Sender: TObject); |
| procedure Timer1Timer(Sender: TObject); |
| procedure SysMenuOpened(Sender: TObject); |
| procedure SysMenuClosed(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| procedure Timer2Timer(Sender: TObject); |
| private |
| x: TQuerySystemMenu; |
| end; |
| 51,6 → 56,11 |
|---|
| Label1.Caption := TimeToStr(Now()); |
| end; |
| |
| procedure TMainForm.Button1Click(Sender: TObject); |
| begin |
| timer1.Enabled := true; |
| end; |
| |
| procedure TMainForm.FormCreate(Sender: TObject); |
| begin |
| x := TQuerySystemMenu.Create(Handle); |
| 63,9 → 73,25 |
|---|
| x.Destroy; |
| end; |
| |
| // Bug: Traybar-Menu... |
| // Bug: Traybar-Icon-Popup... |
| // Nicht beachtet: Shortcuts werden versehentlich gedrückt? |
| // (System-Shortcuts, Windows-Programme-Shortcuts (*.lnk), oder MainMenu Shortcuts? |
| |
| procedure TMainForm.Timer1Timer(Sender: TObject); |
| begin |
| // CheckBox1.Checked := x.IsSystemMenuOpened; |
| Keybd_Event(Ord('S'), 1, 0, 0); |
| Keybd_Event(Ord('S'), 1, KEYEVENTF_KEYUP, 0); |
| end; |
| |
| // WARNUNG: FOCUSED ist nicht gegeben bei |
| // Popups (der eigenen VCL), Menüs (system, mainmenu...), etc! |
| |
| procedure TMainForm.Timer2Timer(Sender: TObject); |
| begin |
| if Edit1.Focused then Edit1.Color := clred |
| else edit1.Color := clwhite; |
| end; |
| |
| end. |