delphi-xe3

I want do a Tabs for my TChromium. I have this: Browsers: array[0..1000] of TChromium; And this ChromeTabs procedures: procedure TForm1.ChromeTabsActiveTabChanged(Sender: TObject; ATab: TChromeTab); var c:integer; begin for c := 0 to ChromeTabs.Tabs.Count do if browsers[c]<>NIL then if c=ChromeTabs.ActiveTabIndex then browsers[c].Visible:=true else browsers[c].visible:=false; end; procedure TForm1.ChromeTabsButtonAddClick(Sender: TObject; var Handled: Boolean); begin browsers[ChromeTabs.ActiveTabIndex]:=TChromium.Create(Chromium); browsers[ChromeTabs.ActiveTabIndex].OnAddressChange:=Chromium

I am trying to build something like a TLookupComboBox using LiveBindings. I have placed a normal TComboBox on a VCL form. I also have a data set with some rows that have the two fields id and text . Then I used the LiveBindings editor to create a TBindSourceDB and a TBindingsList . There is just one binding in it: object BindingsList1: TBindingsList Methods = <> OutputConverters = <> UseAppManager = True Left = 244 Top = 229 object LinkFillControlToField1: TLinkFillControlToField Category = 'Quick Bindings' Control = ComboBox1 Track = True FillDataSource = BindSourceDB1 FillValueFieldName =

I am struggling to find an answer to the following problem. Any and all help would be appreciated. I am using the following code to try and copy an outlook.pst file while outlook is open. And i cannot get it to succeed. It does not give an error, it just doesnt copy the file. copyfile('C:\Users\Administrator\Documents\Outlook Files\Outlook.pst','F:\Outlook.pst'); If you guys know how i will be able to copy a locked file like that please assist. I have tried and found that TFilestream also does not work. And those 2 are the only options i know off. any help would be greatly appreciated. Thank

In VCL forms I use WM_SYSCOMMAND , but in firemonkey it is undeclared. I test this code: procedure TForm4.dragPanelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin isDraging := true; X0 := X; Y0 := Y; end; procedure TForm4.dragPanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if isDraging then begin Form4.Left := Trunc(Form4.Left + X - X0); Form4.Top := Trunc(Form4.Top + Y - Y0); end; end; procedure TForm4.dragPanelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin isDraging := False; end; this

I compile the release version of my application project. When I look with binary editor my compiled final exe i can see all the class name of my own created object, for example : TPolygon, TRectangle, etc..., as binary text data inside the exe. How i can remove this information from exe. I try to remove disabling RTTI using in dpr: {$WEAKLINKRTTI ON} {$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])} But not luck, any hints. If you were to remove class names from the executable, then your application would stop working. The .dfm files that are compiled into your application contain the

How Can I use embedded font or install new fonts in my firemonkey application? I tried this solution but WM_FONTCHANGE is not defined in FMX! I want to use custom font in my application, how I can do this? I followed the instructions here, and they were of some help. I have a few extra hints that may help, The two inclusions that you will need to make this work is WinAPI.Windows and WinAPI.Messages. If you put these inclusions at the start of your "uses" clause, you're unlikely to have name conflicts with things like TBitmap. Now, I've adding the following code, procedure TMainForm.FormCreate

I'd like to know if there is a way to get the type of the elements of a declared, but not instantiated, TList. I can capture the class of an object property like this: MyList: TList<TMyObject> read FMyList; MyRTTIProperty: TRttiProperty; NewObject: TObject; PropertyClass: TClass; MyRttiProperty := MyRttiType.GetProperty('MyList'); PropertyClass := MyRTTIProperty.PropertyType.Handle.TypeData.ClassType; // (returns TList<TMyObject>) NewObject := PropertyClass.Create; This way I can instantiate my list correctly. But now I also want to get the class of the elements, TMyObject, so that I can