We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
procedure Ttcau.ApplicationEvents1Minimize(Sender: TObject); begin hide; end; procedure Ttcau.ApplicationEvents1Restore(Sender: TObject); begin show; bringtofront; end; procedure Ttcau.TrayIcon1DblClick(Sender: TObject); begin if visible then begin application.Minimize; hide; end else begin application.Restore; show; application.bringtofront; end; end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.