| Class TDemoFrm (unit TestFrm) |
TForm
| Constructors |
| Functions |
procedure ClickTimeOutTimerTimer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ImageClick(Sender: TObject);
procedure ItmClick(Sender: TObject);
procedure ShowCBxClick(Sender: TObject);
procedure UpdateHintBtnClick(Sender: TObject);
procedure UseClickCBxClick(Sender: TObject);
procedure WinTaskbarClick(Sender: TObject);
procedure WinTaskbarDblClick(Sender: TObject);| Properties |
| Events |
| Variables |
ClickTimeOutTimer : TTimer;
HintEdt : TEdit;
IconGBx : TGroupBox;
Image1 : TImage;
Image2 : TImage;
Image3 : TImage;
Image4 : TImage;
Label1 : TLabel;
OneItm : TMenuItem;
PopupMenu : TPopupMenu;
ShowCBx : TCheckBox;
TwoItm : TMenuItem;
UpdateHintBtn : TSpeedButton;
UseClickCBx : TCheckBox;
WinTaskbar : TWinTaskbar;| Constructors |
| Functions |
procedure ClickTimeOutTimerTimer(Sender: TObject);
procedure FormShow(Sender: TObject);next line only needed if SINGLE click is also needed
procedure ImageClick(Sender: TObject);
procedure ItmClick(Sender: TObject);
procedure ShowCBxClick(Sender: TObject);
procedure UpdateHintBtnClick(Sender: TObject);
procedure UseClickCBxClick(Sender: TObject);
procedure WinTaskbarClick(Sender: TObject);All below here only needed if you want to support SIBGLE click also.
procedure WinTaskbarDblClick(Sender: TObject);| Properties |
| Events |
| Variables |
ClickTimeOutTimer : TTimer;
HintEdt : TEdit;
IconGBx : TGroupBox;
Image1 : TImage;
Image2 : TImage;
Image3 : TImage;
Image4 : TImage;
Label1 : TLabel;
OneItm : TMenuItem;
PopupMenu : TPopupMenu;
ShowCBx : TCheckBox;
TwoItm : TMenuItem;
UpdateHintBtn : TSpeedButton;
UseClickCBx : TCheckBox;
WinTaskbar : TWinTaskbar;