Procedure TNSApplicationDelegate2.applicationDidUnhideįunction TNSApplicationDelegate2.applicationShouldTerminate Procedure TNSApplicationDelegate2.applicationDidHide(Notification Seems we have to have this method even though it is empty. Procedure TNSApplicationDelegate2.applicationDidFinishLaunching Procedure applicationWillTerminate(Notification: NSNotification) cdecl Ĭonstructor TNSApplicationDelegate2.Create(const AOnOpenFile: TOpenFileEvent) Procedure applicationDidUnhide(Notification: NSNotification) cdecl įunction applicationShouldTerminate(Notification: NSNotification)įunction applicationDockMenu(sender: NSApplication): NSMenu cdecl Procedure applicationDidHide(Notification: NSNotification) cdecl Procedure applicationDidFinishLaunching(Notification TNSApplicationDelegate2 = class(TOCLocal, NSApplicationDelegate2)Ĭonstructor Create(const AOnOpenFile: TOpenFileEvent) 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 kommentar(er)
