[Support]

Popup window is closed because focus lost, I will try to find a solution.

[HeDiBo]

I saw your solution in the popup form of tsDateEdit:

type
  TAccessCalendar = class(TsMonthCalendar);

procedure TsPopupCalendar.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  with TAccessCalendar(sMonthCalendar1) do
    CanClose := (PopMenu = nil) or (PopMenu.PopupComponent = nil);
end;

So, a simple public boolean property TsMonthCalendar.CloseInhibited would do the trick.

[HeDiBo]

I now realize that the label CloseInhibited is too geared toward a popup form. Keeping it restricted to the calendar itself, please implement this:

public
...
property PopupShown: Boolean read GetPopupShown;

function TsMonthCalendar.GetPopupShown: boolean;
begin
   Result :=  (PopMenu <> nil) and (PopMenu.PopupComponent <> nil);
end;

Thanks

[Support]

I have found an universal solution, any popup windows will not be closed automatically if popup menu is opened there. You can test it in the v15.02

[HeDiBo]

I already saw that in the modified sMonthCalendar you sent me. Thanks a million.

[Author]

Posts