NSApplicationDelegate2 = interface(NSApplicationDelegate)įunction application(theApplication: Pointer openFile: CFStringRef) Macapi.ObjectiveC, Macapi.CoreFoundation, Macapi.CocoaTypes, Macapi.AppKit,įMX.Platform,, System.SysUtils, System.RTLConsts, System.Messaging, System.Classes, Procedure InstallApplicationDelegate2(const AOnOpenFile: TOpenFileEvent) TOpenFileEvent = reference to procedure(const AFileName: string) I took parts of each of the three versions and made various edits to arrive at the unit below, which works in Delphi 10.2 Update 3: unit NSApplicationOpenFileDelegateUnit.Mac None of the three units could be used without modification in Delphi Tokyo 10.2, no doubt due to changes that have taken place in Firemonkey since the posts were written. Three authors had each given fairly similar units containing most of the necessary code.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |