TAdvStringGrid - Using edMaskEditBtn

VCL TMS VCL UI Pack
1

Hello I am trying to use an edMaskEditBtn within a TAdvStringGrid however I am having issues getting the the mask validation to work.

I have put a TAdvStringGrid on a blank form and project.
I have changed the default options to include [goEditing].

Next I have added the following event codes:

procedure TForm1.AdvStringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer;
var Value: string);
begin
if (ARow=1) and (Acol=1) then
value:='00-0000';
end;

procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol,
ARow: Integer; var AEditor: TEditorType);
begin
if (ARow=1) and (Acol=1) then
aeditor:=edMaskEditBtn;
end;

I find that if I edit cell 1,1 I get the mask as expected, however if I make an entry that does not comply with the mask for example just entering two numeric digits. The application throws the error "Cannot focus a disabled or invisible window" when I press enter or try to exit the cell. Once the error has popped up, the cell is just left with the incorrect data.

Am I doing something wrong with this component?
How can I verify the input using the OnValidateCell event?

2

Thanks for reporting.
We traced & fixed this.
In the next update, you can use the expected event OnCellValidate() for this.

3

Many thanks for the reply Bruno.

Do you have a rough release date of the fix?

Also when it is available, how can I detect that the mask has been sucessfully validated from within the OnCellValidate() routine. I currently cannot see any properties to test?

4

We schedule a new release next week.
With grid.BtnEdit.Validate() you will be able to get a result from mask validation.