How does one force UpperCase in just one Grid Column? 1

[delphiman]

An EditBox (TDBEdit) has a CharCase Property which one can set to ecUpper, ecLower or ecNormal.

How can one set the CharCase for a particular colum in a Grid to be ecUpper?

Alternatively how can one force (say) MyRecordMyField.value into being in UpperCase?

Thanks in advance.

 

[towerbase]

Suppose you want the user to only be able to enter upper case letters in the second column of your grid then write an OnKeyPress event handler for the DBGrid something like

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if DBGrid1.SelectedIndex = 1 then
    key := UpCase(key);
end;

The SelectedIndex property of the grid indicates which column currently has focus. The first column has a SelectedIndex of 0.

Andrew
Hampshire, UK