unit OnGetEditText;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
      var Value: string);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// BeginExample: OnGetEditText
// Method: Grids.TCustomDrawGrid.OnGetEditText

// BeginCode
{
The following code lowercases the text for a string grid
cell when the user begins to edit it.
} 
procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Longint; var Value: string);
begin
  Value := AnsiLowerCase(Value);
end;
// EndCode
// EndExample: OnGetEditText
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[2, 0]:= 'Phone Number';
  StringGrid1.Cells[2, 1]:= '(408)984-1234';
  StringGrid1.Cells[2, 2]:= '(415)434-6789';
  StringGrid1.Cells[2, 3]:= '(650)696-2345';
  StringGrid1.Cells[2, 4]:= '(831)431-2422';
  StringGrid1.Cells[2, 5]:= '(408)506-9876';
  StringGrid1.Cells[1, 0]:= 'Name';
  StringGrid1.Cells[1, 1]:= 'Clem Myers';
  StringGrid1.Cells[1, 2]:= 'Ed Satchel';
  StringGrid1.Cells[1, 3]:= 'Johanna Mills';
  StringGrid1.Cells[1, 4]:= 'Stella Gables';
  StringGrid1.Cells[1, 5]:= 'Ted Thompson';
  StringGrid1.Cells[3, 0]:= 'POB';
  StringGrid1.Cells[3, 1]:= 'Detroit';
  StringGrid1.Cells[3, 2]:= 'Memphis';
  StringGrid1.Cells[3, 3]:= 'New Orleans';
  StringGrid1.Cells[3, 4]:= 'Lander';
  StringGrid1.Cells[3, 5]:= 'Round Pond';
  StringGrid1.Cells[4, 0]:= 'State';
  StringGrid1.Cells[4, 1]:= 'Michigan';
  StringGrid1.Cells[4, 2]:= 'Tennessee';
  StringGrid1.Cells[4, 3]:= 'Lousiana';
  StringGrid1.Cells[4, 4]:= 'Wyoming';
  StringGrid1.Cells[4, 5]:= 'Maine';
  StringGrid1.Cells[5, 0]:= 'Last Graduated';
  StringGrid1.Cells[5, 1]:= 'Michigan State';
  StringGrid1.Cells[5, 2]:= 'Univ. Colorado';
  StringGrid1.Cells[5, 3]:= 'Univ. Washington';
  StringGrid1.Cells[5, 4]:= 'USC';
  StringGrid1.Cells[5, 5]:= 'Bowdoin';
end;

end.
