Multiple SimpleBrowser2 Forms
Posted: Fri Nov 15, 2024 7:33 am
If I have
uvViewingBrowserForm :array of TForm1;
uvCurrentBrowserForm :integer;
where TForm1 is defined in uSimpleBrowser2
and when I create a new form to display an email I iterate over the uvViewingBrowserForm array for a NIL value and use it.
uvViewingBrowserForm.OnClose sets uvViewingBrowserForm[uvCurrentBrowserForm] to nil.
Works ok normally ... but each form has a "Delete" button which deletes the email from that form and opens up the next. At times the form being deleted has not been set to NIL.
I think an answer would be to remove my OnClose and hack the OnCloseQuery in uSimpleBrowser2 to call my OnClose ... but hacking like this causes problems down the track when upgrading
Any ideas?
Thanks
Ken
uvViewingBrowserForm :array of TForm1;
uvCurrentBrowserForm :integer;
where TForm1 is defined in uSimpleBrowser2
and when I create a new form to display an email I iterate over the uvViewingBrowserForm array for a NIL value and use it.
uvViewingBrowserForm.OnClose sets uvViewingBrowserForm[uvCurrentBrowserForm] to nil.
Works ok normally ... but each form has a "Delete" button which deletes the email from that form and opens up the next. At times the form being deleted has not been set to NIL.
I think an answer would be to remove my OnClose and hack the OnCloseQuery in uSimpleBrowser2 to call my OnClose ... but hacking like this causes problems down the track when upgrading
Any ideas?
Thanks
Ken