DBGRID - UPPERCASE!

[selena1]

I have a Paradox database. I want to use only uppercase in my records. With components like: DBEdit, DBListBox, DBComboBox I don't have a trouble. But I don't know how to get only uppercase in component DBGrid. Can anybody help me, please?
Thanks!

 

[richardchaven]

You can always use Form.KeyPreview to upper-case everyting, or everything based on the .ActiveControl.

However, it seems like the simplest solution is:

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   Key := UpCase(Key);
end;

Cheers