Fórum Dbgrid Tudo Maiusculo #244096
22/07/2004
0
Tenho banco de dados access, no qual tenho uma aplicação feita em delphi através do ado. como fazer quando digitar no Dbgrid, tudo fique em maiusculo, independentimente da tecla caps lock esteja ativa ou não?
Muito Grato,
Adrino
Muito Grato,
Adrino
Xadriano
Curtir tópico
+ 0
Responder
Posts
22/07/2004
Misael
No evento onKeyPress
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBGrid1.SelectedIndex = 1 then
Key := UpCase(Key);
end;
Para aceitar acentuação...
Key := AnsiUpperCase(Key)[1];
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBGrid1.SelectedIndex = 1 then
Key := UpCase(Key);
end;
Para aceitar acentuação...
Key := AnsiUpperCase(Key)[1];
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)