12 replies to this topic

[Speed]

Hi Boki,

 

Is there any way to detect if a popup is already showing?

 

Let me explain.

 

If AutoClose is set to False, and a notification popup with the title of "Meeting" is showing, is there a way I can detect that this popup is already showing so I don't show the same popup again?

 

= Steve

 

[Speed]

<bump>

[Speed]

Is there also a way to detect if a reminder has been closed using the Close button?

[Boki (Berg)]

Hello,

 

Unfortunately it's not possible to check if a specific popup is open, but I can add it. I will also try to add an event for OnClose for the popup.

[Speed]

Hello,

 

Unfortunately it's not possible to check if a specific popup is open, but I can add it. I will also try to add an event for OnClose for the popup.

Thanks Boki, that would be awesome. 

 

In the meantime, I got around it by adding the popup text to a TStringList and then checking to see if it's in the list.  I can't get around the OnClose event though.

 

= Steve

[Boki (Berg)]

Hello Steve,

 

From the next version you will be able to find published UxControls6.NotificationControls (TList) variable. There you can find all currently open pop-ups.

[Speed]

Hello Steve,

 

From the next version you will be able to find published UxControls6.NotificationControls (TList) variable. There you can find all currently open pop-ups.

Hi Boki,

 

That is brilliant!  Thank you.

 

= Steve

[Speed]

Hello Steve,

 

From the next version you will be able to find published UxControls6.NotificationControls (TList) variable. There you can find all currently open pop-ups.

Has this version been released, or is it still in dev?

 

= Steve

[Boki (Berg)]

Hello Steve,

 

Its released.

[Speed]

Thanks Boki.

 

I've hooked onto the TUxNotificationControl OnClose event, but there's no way to tell if the notification has been closed manually or autoclosed.

 

Is there code I can add to check that?

 

The reason for this is, if a notification is autoclosed, then I want it to appear again as the user may not be on their computer when the notification appears.  But if the user closes it manually, then it would become annoying for them if the notification kept popping up.

 

The plan is to delete the notification from the TList if the user manually clicks the close button.

 

What do you think?

 

= Steve

[Speed]

Hi Boki,

 

Never mind, I worked it out.  In my event handler I can check which notification it is and whether or not it's set to AutoClose.

   CodeSite.Send('TUxNotificationControl(Sender).Text', TUxNotificationControl(Sender).Text);

   if TUxNotificationControl(Sender).AutoClose then
   begin

   end
   else
   begin

   end;

= Steve

[Speed]

Hi Boki,

 

I'm not sure if this is the correct way to do this but I get a List Index Out of Bounds (-1) error when I do.
 

procedure TfrmMain.ReminderClosed(Sender: TObject);
var
   ReminderIndex, NotificationsIndex, i: integer;
   Reminder: TUxNotificationControl;
   ReminderText: string;
begin
   // Get the reminder that has closed.
   ReminderText := TUxNotificationControl(Sender).Text;

   // This is not an AutoClose reminder so we can remove it from the list of reminders.
   if not TUxNotificationControl(Sender).AutoClose then
   begin
      // Find a match for this reminder
      for i:= (NotificationControls.Count - 1) downto 0 do
      begin
         Reminder := TUxNotificationControl(NotificationControls[i]);

         if SameText(Reminder.Text, ReminderText) then
         begin
            NotificationsIndex := NotificationControls.IndexOf(Pointer(Reminder));

            NotificationControls.Delete(NotificationsIndex);

            Break;
         end;
      end;
   end;
end;

The error occurs here in the UxControls6.pas unit, on the line shown in the attached image.  It's probably something I'm doing wrong.

 

= Steve

Attached Files

•  Popup Error Message.png   101.98KB   0 downloads

[Speed]

Hi Boki,

 

Never mind.  The reminders are stored in a database, so when the user clicks close I'll just disable the reminder in the database.

 

= Steve