Henry Olive

Delphi 12 FMX Good Day, How can i get Table's FieldName when i click a Data Binded Grid Column (Header) on Run Time? (I use Grid not String Grid) Thank You

Unfortunatelly, if you are using Binding (which i use) there is no Align settings for Header Captions. Thank you so much corneliusdavid , Kryvich

Thank you so much, I'm new in FMX, beside StringGrid there is also Grid component i have just tried to use it but i think data connection is not possible can you please confirm. Thank you

Good Day, Delphi 11,3 I have a string grid (as a Data Grid) linked to datasource(Bind) In String Grid's Columns Editor, i choose one of the column (it is an Integer field) i want to change its Align and i set Aligment Property to taRightJustify when i run the application the column header.caption is still LeftJustify. How can i change an Integer or Numeric fields's Align to taRightJustify ? Thank you

I solved the problem

Thank you so much David I tried DBChart1.Series[1].LinePen.Width := 2 but i get Undeclared identifier: 'LinePen' error I'm using Delphi 10.4

Delphi : 10.4 Good Day How can i increase Vcl DBChart Line Series Line Thickness ? Thank You

Good Morning Die Thank you SO MUCH

Thank you so much Uwe If you have time, could you please a little bit explain the 2 choices and if possible could you show some code example

Good Day I want to find out the Form Name 1 level behind of Active Form In Form1 - Form2.Show; In Form2 - Form3.ShowModal; In Form3 I need the name of 1 level behind Form3, ( which is Form2 ) Thank You

Thank you Angus I dont want to use S.Proc. as i wrote my prior message i know how to use params in S.Proc but i want to use a dataset, query component inside Delphi

Good Day In Stored Procedure i can use below code WHERE :CUSTNO IS NULL OR C.CUSTNO=:CUSTNO) How can i use above code inside Delphi (10,4) ? SqlText := 'SELECT CUSTNO, CUSTNAME,EMAIL FROM CUSTOMER WHERE CUSTNO = :CUSTNO'; CDS1.CommandText := SqlText; CDS1.Params[0].asString = ?? // If :CUSTNO = '' (Empty) then show all Customers else just show choosen Customer Thank You

Good Day, Night ..... ItemNoCol := Ord(ComboBox2.Text[1]) - Ord('A') + 1; QtyCol := Ord(ComboBox3.Text[1]) - Ord('A') + 1; DataStart := StrToInt(ComboBox4.Text); // Which column does data start in for Row := DataStart to ExcelRowsCount do begin ItemNo :=Trim(Sheet.Cells[Row, ItemNoCol]); if (ItemNo <>'') then if (Sheet.Cells [Row, QtyCol] <> '0') or (Sheet.Cells [Row, QtyCol] <> '') then // HERE i get invalid variant operation err.msg begin .... end; What am i doing wrong ? Thank You

Thank you Olli73, Happy New Year Both Qty & Price fields are TFMTBCDField; Select Sum(Round(Price * Qty, 2)) as Total gives correct result

Thank you Serge, Happy new year Price : Numeric(15,5) Qty : Numeric(15,2) Firebird,: Select Sum(Price * Qty) as Total (the result = 573.694,74 ) In Delphi I Created an Aggr.Field and its Expression is Sum(Total) (the result = 573.694,73 ) Thank You