Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
// in your declarations, create a procedure....
public
{ Public declarations }
procedure AppHide(Sender : TObject);
end;
// --------------------------------------------------
procedure TMain.FormCreate(Sender: TObject);
begin
Application.OnMinimize := AppHide; // calls this when minimised
end;
// --------------------------------------------------
procedure TMain.AppHide(Sender: TObject);
begin
TrayIcon.Active := TRUE; // activates tray icon when minimised
end;
// --------------------------------------------------
procedure TMain.TrayIconClick(Sender: TObject);
begin
TrayIcon.Active := false; // restores it when tray icon clicked
Application.Restore;
end;
// --------------------------------------------------