Olá galera, acabei de entrar na lista e espero trocar conhecimentos e poder
ajudar a todos se possível... Obrigado pela oportunidade....
Bom.. estou com pequeno problema em uma função que verifica os campos
obrigatórios a partir da propriedade REQUIRED. Segue o código da função e a
linha onde está me gerando o erro...!
function TFrmBase.FCampo_Obrigatorio:Boolean;
var Cont : Integer;
begin
Result := True;
for cont := 0 to DtSrc.DataSet.FieldCount -1 do
if DtSrc.DataSet.Fields[cont].Required then
if (DtSrc.DataSet.Fields[Cont].IsNull) Or
(DtSrc.DataSet.Fields[cont].AsString='') then
begin
messagedlg('Preencha o campo"'+
DtSrc.DataSet.Fields[cont].DisplayLabel+'"',
mtInformation,[mbOK],0);
Result := False;
DtSrc.DataSet.Fields[cont].FocusControl; //AQUI GERA ERRO DE FOCUS
Break;
end;
end;
Não sei por qual motivo, mas o erro é CANNOT FOCUS A DISABLE OR INVISIBLE
WINDOW! Já verifiquei está tudo ENABLE...
Se alguém poder me ajudar...
Obrigado...
[As partes desta mensagem que não continham texto foram removidas]
