Description

The following code makes the text for a string grid cell appear in lowercase when you begin to edit it.

Code

procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Longint; var Value: string);
begin
  Value := AnsiLowerCase(Value);
end;