Hello,
For many year's we have been using OnSetEditText event of the TAdvStringGrid to check user input (as he types) and then add some string to it. After installing TMS Component Pack 9.2.3.0 on Delphi Rio the functionality of OnSetEditText seems to have changed.
Examples:
// Using TStringGrid the event OnSetEditText works like we are trying to use it
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
begin
const Value: string);
begin
// If user enters '12' into the cell, the value is changed to '12 Test'
if Length(Value) = 2 then
StringGrid1.Cells[ACol, ARow] := Value + ' Test'
StringGrid1.Cells[ACol, ARow] := Value + ' Test'
end;
// Using TAdvStringGrid the event OnSetEditText has changed
procedure TForm1.AdvStringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
begin
const Value: string);
begin
// If user enters '12' into the cell, the cell becomes empty
if Length(Value) = 2 then
AdvStringGrid1.Cells[ACol, ARow] := Value + ' Test'
end;
AdvStringGrid1.Cells[ACol, ARow] := Value + ' Test'
end;