I have 2 forms.
On main form, this code work
procedure TForm_Main.SetAddItemsGridFloats;
begin
TFloatField(ZQuery_AddItems.FieldByName('inventory_cost')).DisplayFormat := '####0.00';
TFloatField(ZQuery_AddItems.FieldByName('inventory_sell_price')).DisplayFormat := '####0.00';
TFloatField(ZQuery_AddItems.FieldByName('inventory_margin_contribution')).DisplayFormat := '####0.00';
TFloatField(ZQuery_AddItems.FieldByName('inventory_weight')).DisplayFormat := '####0.00';
TFloatField(ZQuery_AddItems.FieldByName('inventory_in_stock')).DisplayFormat := '####0.00';
end;
On other form, this code not work
procedure TForm_CreateNewBOM.SetInventoryGridFloats;
begin
TFloatField(Form_Main.ZQuery_InventoryForBOM.FieldByName('inventory_cost')).DisplayFormat := '####0.00';
TFloatField(Form_Main.ZQuery_InventoryForBOM.FieldByName('inventory_sell_price')).DisplayFormat := '####0.00';
TFloatField(Form_Main.ZQuery_InventoryForBOM.FieldByName('inventory_margin_contribution')).DisplayFormat := '####0.00';
TFloatField(Form_Main.ZQuery_InventoryForBOM.FieldByName('inventory_weight')).DisplayFormat := '####0.00';
TFloatField(Form_Main.ZQuery_InventoryForBOM.FieldByName('inventory_in_stock')).DisplayFormat := '####0.00';
end;
I get errors. Why TFloatField work for one form and not other?