Edicao no DBGrid
Estou editando uma tabela diretamente no DBGrid, estou usando o evento OnValidate do campo, para testar seu valor, caso o valor nao atenda, tem como eu mandar o foco novamente para a celula do grid ?
Abs
Abs
Felipeiw
Curtidas 0
Respostas
Catunda
18/06/2009
Eu costumo fazer a validação no evento OnSetText do campo no dataset.
Por exemplo, pra testar se um campo do tipo data é válido:
procedure Form1.MyDataSetVctoSetText(Sender: TField;
const Text: String);
begin
try
if Trim(Text)=´/ /´ then Sender.Clear
else
Sender.AsString:=Text;
except
on e:econverterror do
begin
showmessage(´A Dada Digitada : ´+Text+´ Não Corresponde a Uma Data Válida´);
abort;
end;
end;
end;
Obs: O evento OnSetText não pode ser testado em tempo de projeto, ou seja, apenas clicando no F9. É preciso salvar, compilar e executar diretamente do programa que foi gerado.
Por exemplo, pra testar se um campo do tipo data é válido:
procedure Form1.MyDataSetVctoSetText(Sender: TField;
const Text: String);
begin
try
if Trim(Text)=´/ /´ then Sender.Clear
else
Sender.AsString:=Text;
except
on e:econverterror do
begin
showmessage(´A Dada Digitada : ´+Text+´ Não Corresponde a Uma Data Válida´);
abort;
end;
end;
end;
Obs: O evento OnSetText não pode ser testado em tempo de projeto, ou seja, apenas clicando no F9. É preciso salvar, compilar e executar diretamente do programa que foi gerado.
GOSTEI 0