ActiveDelphi

[Rogazzi]

Galera estou com um problema de Access Violation at address no SetFocus do componente TEdit

O form CadUsuario é criado dessa forma:

UFuncoes.TFuncoes.CriarFormModal(TFormCadUsuario, FormCadUsuario);

Na unit UFuncoes tenho uma classe:

class procedure CriarFormModal(ClassForm: TFormClass; Form: TForm);

class procedure TFuncoes.CriarFormModal(ClassForm: TFormClass; Form: TForm);
begin
Application.CreateForm(ClassForm, Form);
try
Form.ShowModal;
finally
FreeAndNil(Form);
end;
end;

No formCadUsuario no botão gravar tem uma função para validar o Usuário.

Está dando o erro aqui:

if strConfSenha = '' then
begin
UFuncoes.TFuncoes.CaixaDialogo(('O Confirmar Senha é obrigatório.'), tpErro);
ConfSenha.SetFocus; (O ERRO ESTÁ AQUI)
Abort;
end;

A Função para chamar CaixaDialogo é esse:

class function TFuncoes.CaixaDialogo(strMensagem: String; TipoBotoes: TipoBotoes): Integer;
begin
case TipoBotoes of
// Tipo Confirmação
tpConfirmacao:
Result := Application.MessageBox(PWideChar(strMensagem), PWideChar(strNomeSistema +
' - Confirmação'), MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_SYSTEMMODAL);
// Tipo Atenção
tpAtencao:
Result := Application.MessageBox(PWideChar(strMensagem), PWideChar(strNomeSistema +
' - Atenção'), MB_OK + MB_ICONWARNING + MB_SYSTEMMODAL);
// Tipo Erro
tpErro:
Result := Application.MessageBox(PWideChar(strMensagem), PWideChar(strNomeSistema +
' - Erro'), MB_OK + MB_ICONERROR + MB_SYSTEMMODAL);
// Tipo Informação
tpInformacao:
Result := Application.MessageBox(PWideChar(strMensagem), PWideChar(strNomeSistema +
' - Informação'), MB_OK + MB_ICONINFORMATION + MB_SYSTEMMODAL);
end;
end;

Quando uso um TDBEdit e coloco DBEDit.FocusControl funciona legal, mas no TEdit.SetFocus da erro.

Alguém já viu isso?

[ric_rio2]

Bom dia Rogazzi
Cara.. pelo pouco que da para ver.. eu chutaria que o Objeto ConfSenha
esta EnNambled = False.
Ai ele não pode receber setfocus..
Vê se não é isso.. Tomara que seja
Abraços.

[imex]

Bom dia,

Rogazzi, acho que o erro pode estar ocorrendo na execução de algum código que está em algum evento que está ocorrendo ao executar o SetFocus.
Para verificar essa possibilidade experimente colocar um BreakPoint na linha do SetFocus e continue a execução passo a passo pressionando a tecla F7.

Espero que ajude