NSNativeButton as Default

   Hi,
Is it possible to set a Native Button as default, i.e. it is coloured Blue 'before' clicking?

Many thanks

Andy

Author	Message Share Topic Printable Version Delicious Digg Facebook Furl Google MySpace Newsvine reddit StumbleUpon Translate Twitter Windows Live Yahoo Bookmarks Topic Search Topic Options Post Reply Create New Topic
Andrew Norman Members Profile Find Members Posts New Member Joined: 08 Apr 2016 Posts: 3	Post Options Post Reply Quote Andrew Norman Report Post Quote Reply Topic: NSNativeButton as Default Posted: 08 Apr 2016 at 12:46am
	Hi, Is it possible to set a Native Button as default, i.e. it is coloured Blue 'before' clicking? Many thanks Andy

Pieter Scheldeman Members Profile Find Members Posts TMS Support Joined: 18 May 2010 Posts: 3568	Post Options Post Reply Quote Pieter Scheldeman Report Post Quote Reply Posted: 08 Apr 2016 at 10:11am
	Hi, You can try the following code to accomplish this: uses FMX.Platform.Mac, Macapi.AppKit; procedure TForm1.FormCreate(Sender: TObject); begin TMSFMXNativeNSButton1.BezelStyle := bbsRoundedBezelStyle; end; procedure TForm1.FormShow(Sender: TObject); var h: TMacWindowHandle; begin h := WindowHandleToPlatform(Self.Handle); h.Wnd.setDefaultButtonCell(TNSButtonCell.Wrap(TMSFMXNativeNSButton1.Button.cell)); end;

Andrew Norman Members Profile Find Members Posts New Member Joined: 08 Apr 2016 Posts: 3	Post Options Post Reply Quote Andrew Norman Report Post Quote Reply Posted: 08 Apr 2016 at 11:28am
	Works perfect, many thanks for your prompt response. Andy