firemonkey

问题 How I can declare a simple ObjC-Class in Delphi/Firemonkey (XE5 or XE6)? I want to create an animation delegate class with some delegate methods inside of this class. Thanks! 回答1: Create an interface with your methods and derive from IObjectiveC. Also create a guid. I'm not posting one here, so that nobody is tempted to use mine. ISampleDelegate = interface(IObjectiveC) ['{put-your-own-guid-here}'] // <-- Press Ctrl+Shift+G to create your own guid - must be unique for every interface

问题 I opened this demo in Delphi Seattle and it works like it should. When I open my program, and include the demo form it doesnt work. I cannot add hints to my controls. procedure TMainForm.FormCreate(Sender: TObject); application.ShowHint:=true; application.OnHint :=OnApplicationHint; end; procedure TMainForm.OnApplicationHint(Sender: TObject); begin caption := (Application.Hint); end; My program is converted from XE7 to Seattle. So what could be the difference? Where can i find the code that

问题 I'm with a little problem when trying to show more than one form on taskbar on the same time. I found I need to use the following: WS_EX_APPWINDOW So I search a little bit more about and then found it: class TForm2 : public TForm { __published: // IDE-managed Components private: // User declarations public: // User declarations __fastcall TForm2(TComponent* Owner); void __fastcall CreateParams(Controls::TCreateParams &Params); }; void __fastcall TForm2::CreateParams(Controls::TCreateParams

问题 I'm with a little problem when trying to show more than one form on taskbar on the same time. I found I need to use the following: WS_EX_APPWINDOW So I search a little bit more about and then found it: class TForm2 : public TForm { __published: // IDE-managed Components private: // User declarations public: // User declarations __fastcall TForm2(TComponent* Owner); void __fastcall CreateParams(Controls::TCreateParams &Params); }; void __fastcall TForm2::CreateParams(Controls::TCreateParams

问题 I'm with a little problem when trying to show more than one form on taskbar on the same time. I found I need to use the following: WS_EX_APPWINDOW So I search a little bit more about and then found it: class TForm2 : public TForm { __published: // IDE-managed Components private: // User declarations public: // User declarations __fastcall TForm2(TComponent* Owner); void __fastcall CreateParams(Controls::TCreateParams &Params); }; void __fastcall TForm2::CreateParams(Controls::TCreateParams

问题 How to create a derived class of NSWindow in delphi firemonkey? I've succeeded in creating a Cocoa window that contains only a webview. (using NSWindow.Wrap, setContentView, orderFront etc) I made it borderless, but the problem is that it does not accept mouse moved events, as described here: Why NSWindow without styleMask:NSTitledWindowMask can not be keyWindow? Is it possible to subclass NSWindow in delphi and override canBecomeKeyWindow? It's not working (compiles, but method not called):

问题 How to create a derived class of NSWindow in delphi firemonkey? I've succeeded in creating a Cocoa window that contains only a webview. (using NSWindow.Wrap, setContentView, orderFront etc) I made it borderless, but the problem is that it does not accept mouse moved events, as described here: Why NSWindow without styleMask:NSTitledWindowMask can not be keyWindow? Is it possible to subclass NSWindow in delphi and override canBecomeKeyWindow? It's not working (compiles, but method not called):

问题 I am porting an older project (app for iOS ans Android) for a customer from an older AppMethod version to the newest RAD Studio version (10.0 Berlin). MessageDlg and similar were used often in the project but this does not work anymore. The apps shows a message, that modal dialogs are not supported on Android. I know and understand why this is so for the Android platform ( so please don't mark this question as a dublicate by referencing to an explanation - I'm asking for something else! ).

问题 I'm developing a multi-device application for iOS and Android using Delphi XE7 Update 1. I have a base form from which all forms in my application are driven: object frmBaseForm: TfrmBaseForm Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 480 ClientWidth = 640 StyleBook = sbStyle FormFactor.Width = 320 FormFactor.Height = 480 FormFactor.Devices = [Desktop] DesignerMasterStyle = 0 object sbStyle: TStyleBook Left = 8 Top = 8 ResourcesBin = {

问题 Hi, EveryBody! I'm new to programming! I need your help plz. I've 2 project: 1. Project Login page. Using App Tethering and 2 buttons(Connect button =>connects to the server AND Login button=>Sends request to the Server to check Valid username and password). 2. Project Server page. In a Server Page using App tethering and FDQuery +( SQLite database test.db). When Client Connects to the Server and sends request to the Server to check valid username and password it gives wrong result. plz help