Ian Branch

I do, but better I don't cause the issue to start with.

That is most often the case. Open just the form to make a quick edit and save it. Perhaps I should stop that practice.. 😉

Tks P2k. I went to my Profile but couldn't find any search functionality. @Uwe Raabe said - "This can also happen when the missing DataSource is not located at the same form/frame as the DB components and the IDE fails to open the datamodule (or wherever this datasource resides) for whatever reasons. I had similar experiences with actions located in a datamodule. If by any chance that datamodule shares its name with one of the IDE internal ones (including those in 3rd party modules) that can be the cause of breaking the linkage." Question - If the Form was opened on its own, and not via the project, therefore the relevant datamodule is not present/loaded, would that cause the issue? Ian

Hi Team, Win 11, D11.3.1. I have the following form create code.. procedure TChangesLogForm.FormCreate(Sender: TObject); begin // IndexOrd.ItemIndex := 0; // case JSDialog1.Execute of 100: ttChangesLog.SQL.Text := 'SELECT * from dbiworkflow.changeslog order by DateTime'; 200: ttChangesLog.SQL.Text := 'SELECT * from dbiarchive.achangeslog order by DateTime'; 300: begin TaskMessageDlg('Warning!', 'You have selected to view both databases.' + #13 + 'This will take some time to produce the view!' + #13 + 'Please be patient.', mtInformation, [mbOK], 0); ttChangesLog.SQL.Text := 'SELECT * FROM vAllChangesLog order by DateTime'; end; 400: // Stop creating and abort the form. end; // end; the '400:' selection is to Cancel the form and return to the calling form. How do I achieve this please? I tried 400: PostMessage(Handle, WM_CLOSE, 0, 0);, but that didn't work. 😞 Regards & TIA, Ian

P2k. Tks for the suggestion. I think I will quit while I am ahead. 🙂

My thanks to all. I have a working solution and a new methodology for future use. Ian

Cured it! I did this.. procedure TMainForm.actChangesLogExecute(Sender: TObject); begin // if IsFormOpen('ChangesLogForm') then Exit; // Screen.Cursor := crHourGlass; // try // var ChangesLogForm := TChangesLogForm.Create(Self); // ChangesLogForm.Show; // finally Screen.Cursor := crDefault; end; // end; No more spinning cursor.

Hi Team, Getting there.. I have the following calling code.. procedure TMainForm.actEmailsLogExecute(Sender: TObject); begin // if IsFormOpen('EmailsLogForm') then Exit; // Screen.Cursor := crHourGlass; // var EmailsLogForm := TEmailsLogForm.Create(Self); // EmailsLogForm.Show; // Screen.Cursor := crDefault; // end; And the following Create in the called form.. constructor TChangesLogForm.Create(AOwner: TComponent); // called before "FormCreate()" begin inherited; // var lCloseForm := False; // case JSDialog1.Execute of 100: ttChangesLog.SQL.Text := 'SELECT * from dbiworkflow.changeslog order by DateTime'; 200: begin TaskMessageDlg('Warning!', 'You have selected to view records from the Archive database.' + #13 + 'This will take some time to produce the view!' + #13 + 'Please be patient.', mtInformation, [mbOK], 0); ttChangesLog.SQL.Text := 'SELECT * from dbiarchive.achangeslog order by DateTime'; end; 300: begin TaskMessageDlg('Warning!', 'You have selected to view records from both databases.' + #13 + 'This will take some time to produce the view!' + #13 + 'Please be patient.', mtInformation, [mbOK], 0); ttChangesLog.SQL.Text := 'SELECT * FROM vAllChangesLog order by DateTime'; end; 400: lCloseForm := True; // end; // if lCloseForm then Abort; // end; The Abort works fine, I return to the calling form, however, I end up with a spinning cursor.. 😞 Thoughts/suggestions? Regards, Ian

Hi Thomas, I'm afraid I don't know where/how to do that. Can you show me an example or two please? Regards & TIA, Ian

Hi Team, D11.3. I have a multi component App with several tabs on a form. All works as designed/expected. Recently I have tried to add a button or a label or something else o one of the tabs, it builds OK but when run I get a 'Class "abcdef" not found.' error with "abcdef" being the added component. It's not peculier to the tab either, it happens if I just want to add a component to the form. Anybody seen this before? Is it a known issue? Have I reached some limit? Is there a cure? Regards & TIA, Ian

I FOUND IT!!! For whatever reason I had the following order at the start of the unit.. type .... .... private .... .... const .... .... public .... .... end; Something in me said this didn't look/feel right so I changed it to type .... .... private .... ... public .... .... end; const .... .... and all is fine now. Exactly why I had the const in the private section, I can only specualte that I was trying to make the consts private...... FWIW, this is the const declaration.. const sNoSvcEmail : string = 'There is no Service Email Address recorded in the Company data!'; sNoCorpEmail : string = 'There is no Corporate Email Address recorded in the Company data!'; sPrintMsg : string = 'The Job Ticket not in the correct status for this print function!'; // The following are for IndexOrd. aIndexOrd : array of string = ['Job #', 'Customer Ref.', 'Job Status', 'Account Code', 'Job Type', 'MSN', 'ESN', 'User ID', 'Account #', 'Customer #', 'Service #']; aSortOrder : array of string = ['JobNo', 'CustomerRef', 'JobStatus', 'AccountCode', 'JobType', 'MSN', 'ESN', 'UserID', 'AccountNo', 'CustomerNo', 'ServiceNo']; Anyway, all good now, I can add components again to my hearts content. Thank you all for your interest and suggestions/contributions. Very much appreciated. Regards, Ian

I am suspecting the latter. I removed all the plugins and the issue still occurred.

No they aren't inherited. I tried creating a brand new form, adding all the components and code as per the original and got the same issue in the new form. 😞 Strange.

Hi Uwe, It's a case of 'I don't know what to tell you' that might help/clarify the issue. 🙂

As far as I can tell, yes. But the button was just an example, it doesn't seem to matter what extra component I put on the form.

Hi Team, I have jpegs saved into TTable Blob fields. 1 per record. How do I extract and print that jpeg to the PCs Printer please? I have made several 'attempts' without success. Regards & TIA, Ian

Hi Team, D11.3. I need to be able to load a .pdf file to a TTable blob field, and display the blob/pdf on a form. I can load the .pdf to a blob field no problem, but I can't figure out how to display it. It would be nice if there was the ability to zoom in/out for viewing. I would expect the display .pdf to change as the TTable changed records. Looking for suggestions/ideas. Regards & TIA.

Hi Thomas, Hmm.. food for thought. It is only happening on one form out of 20 in the project. It also happens to be the most complex form. I presume you are referring to the Components name property? i.e. it was blanked for some reason. I would have thought that would have stopped it from compiling, let alone running.. It happens if, for example, I copy an existing button already on the form. Builds OK but as soon as I try open that form with say a Button1.enabled := true;, I get the error. :-(

I have, and have looked at that, but it has too many limitations att. I need zoom in /out plus some other caabilities that I have mentioned to Bruno.

Hi Team, One last aspect. I don't need to att, but if the Customer asks, where/how would I incorporate a printersetup dialog so they could select the printer and parameters? Regards & TIA, Ian

Success!!!! I looked at the contents of the link and there were two things not in our code. Title & Copies. I took a punt and added a Title. "LPrinter.Title := 'Test';" and it all works. 🙂 I don't know if this is a Win11 thing or a Printer thing, but it is at least resolved. Thank you all for your contributions and p2k for your patience. Regards, Ian

Nope. That didn't work. I can see it in the queue but it isn't printing. 😞

Yep. Same result.

No progress at all for the printing of the image. It just sits there in the printer queue. No privilages needed.

I can see them in the Printer Queue as they print.