Questions tagged [delphi-10-seattle]

Delphi 10 Seattle is a specific version of Delphi released in August 2015

Delphi 10.0 Seattle supports development of applications covering Windows 32-bit and 64-bit, 32-bit, 32-bit and 64-bit, and 32-bit. Windows applications may be built using either the framework or the (FMX) framework, whereas the rest of the supported platforms are built under the Firemonkey framework only.

Always use the tag alongside this tag.

626 questions
0
votes
2 answers

how to place form in layout in firemonkey android

I Am trying to place a form inside a tlayout in firemonkey android platform but when i try to create a parent form in firemonkey its shows as full screen ? as example i do something like this Form2 := Tform2.create(nil); form2.parent :=…
Vlark.Lopin
  • 762
  • 10
  • 21
0
votes
2 answers

Is TPoint a primitive in Delphi?

I am creating several TPoint objects at runtime but I am not destroying them. I checked the code of TPoint in System.Types: PPoint = ^TPoint; TPoint = record X: FixedInt; Y: FixedInt; public constructor Create(P : TPoint); overload; …
UnDiUdin
  • 14,924
  • 39
  • 151
  • 249
0
votes
1 answer

TidTcpserver Verify commands List

I Am trying to protect my Tidtcpserver from unknown commands This is how my Verify commands function looks like function TConnection.Verfieycmds(const CMSTOV: String): BOOLEAN; var CMDSTOVERFIYE : Tstringlist; I : integer; …
Vlark.Lopin
  • 762
  • 10
  • 21
0
votes
1 answer

How to read intent in Delphi multi-device app broadcasted from android app

I recently got my hands on a Android barcode scanner device. I want to write a small inventory multi-device app in Delphi 10 Seattle. Scanner has two mode settings to return scanned barcode, first mode just passes barcode to an focused edit control,…
0
votes
1 answer

Why does BringWindowToTop combined with the VCL Ribbon not work correctly?

I have the following (simplified) procedure to bring a desired window atop all other normal windows: function focusWindow(): boolean; var h: Hwnd; begin result := true; h := findwindow('Notepad', 'Unbenannt - Editor'); if h <> 0 then …
ventiseis
  • 3,029
  • 11
  • 32
  • 49
0
votes
2 answers

Get the result from the Query

I write this code : Var Q : TFDQuery; begin Q := TFDQuery.Create(Self); Q.Connection := FDConnection1; Q.Params.CreateParam(ftString,'N',ptOutput);// Try also ptResult Q.Params.CreateParam(ftInteger,'ID',ptInput); Q.SQL.Text := 'SELECT NOM FROM…
Ilyes
  • 14,640
  • 4
  • 29
  • 55
0
votes
1 answer

Delphi Firemonkey Android TEdit UpperCase Duplicating Text

I'm using Delphi Seattle, and have an edit and I want the typed text to be written in uppercase. I'm using this code: procedure TF_Quiosque.edtCadNomeVisitanteChangeTracking(Sender: TObject); begin edtCadNomeVisitante.Text :=…
Tallys Ferrante
  • 173
  • 1
  • 13
0
votes
0 answers

how to get pagecontrol inactive tabs handle?

I am trying to flash the inactive tabs in a TPageControl. I do something like the following: for I := 0 to PageControl1.PageCount do begin if PageControl1.Pages[I].Tag = '1' then begin if PageControl1.ActivePage <> PageControl1.Pages[I]…
Vlark.Lopin
  • 762
  • 10
  • 21
0
votes
0 answers

How to create a style for an unstyled control

I'm currently messing arround with Embarcadero's Bitmap Style Designer on Delphi 10 Seattle. As far as I know, you can mess arround with the objects that Embarcadero gives you, but when it comes to the yet unstyled parts of the control nothing can…
0
votes
0 answers

What does the "Invalid command handle" error mean in DataSnap?

I have a DataSnap Server running as a Windows Service and it listens for connections on port 8080. I am seeing the following errors in the DSServer.OnError event: TDBXError - Invalid command handle: 2 and TDBXError - Invalid command handle:…
0
votes
1 answer

Android developement with Delphi on One Plus X: how to?

I own Delphi 10 Seattle and I am struggling to setup my IDE for Android development. My phone is One Plus X. I went through the docs at embarcadero website, in particular this page I did all up to point (6), but point (7) is not ok: I do not see my…
UnDiUdin
  • 14,924
  • 39
  • 151
  • 249
0
votes
1 answer

TryISO8601ToDate generates an exception

DateUtils.TryISO8601ToDate('8', Result) generates an exception. But it is Try !!! It's task is to try without throwing any exceptions. The problem is not that Delphi IDE reacts on this exception. The problem is that the "Try" function produces such…
Paul
  • 25,812
  • 38
  • 124
  • 247
0
votes
1 answer

What is the correct way to structure this generic object creation

Ignoring the fact that this uses the Aurelius Framework, this question is more about how I need to re-tweak the code to make the generic constructor injection work for both type: < string > and < TCustomConnection > Also ignore the fact that the…
0
votes
1 answer

How to get the compressed data size from a TIdTCPServer?

I'm developing a TCP Client-Server application. I'm trying to get the compressed size of the packets I send to the client so I can compare that size with the uncompressed data size and get statistics about the compression ratio obtained. On the…
Avatar
  • 3
  • 3
0
votes
1 answer

How to free runtime ListBoxItems from memory in Delphi Seattle Firemonkey Multi Device App

I have a few forms where I have a TListBox component that I fill runtime. My question is how can I best free the items that I add runtime? By using the owner? Form or ListBox? Or freeing them myself? or a different way? Below an example how I…
Remi
  • 1,289
  • 1
  • 18
  • 52