How to avoid autoadvance in TStringgrid

[MoellerCLaus]

If the validation of a cell entry proves wrong (StringGrid1ValidateEntry(sender: TObject; aCol, aRow: Integer; const OldValue: string; var NewValue: String); )
how to hinder advance to next cell?
I could set NewValue := OldValue; and nothing bad happens. But for the user interface staying in the cell would be more natural; giving the user a change to correct the mistake.
Searching this forum gives the advice about raising an exception; which by others is not recommended

Any hint is highly welcomed?

[typo]

how to hinder advance to next cell?

AFAIK through AutoAdvance property.

[MoellerCLaus]

I am afraid I tried this too

Code: [Select]

    Begin // Does account exist?
      Val(NewValue,I,Code);
      If Code <> 0 Then
        Begin
          MessageDlg('Account is not a number!',mtInformation,[mbOk],0);
          StringGrid1.AutoAdvance:=aaNOne;
          Abort;
This code does not give the wanted effect.

[Avishai]

I think in case of an error, you would have to set the TStringGrid.Cell[OldCol,OldRow]

[MoellerCLaus]

Not quite, but I found a solution - happy to hear about other ways of handling this.

In the Grid.ValidateEntry

Code: [Select]

  If      aCol = KasBL Then
    Begin // Check if number
      Val(NewValue,I,Code);
      if Code <> 0 Then Raise Exception.CreateFmt('Number not correct : ''%s''', [newvalue]);
    end

and then create an application exception handler

Code: [Select]

  Application.OnException := @clmExceptionHandler;

Where the handler looks like this

Code: [Select]

procedure TMainForm.clmExceptionHandler(Sender: TObject; E: Exception);
Begin
  MessageDlg(E.Message,mtInformation,[mbOk],0);
end;