3

Vi que já tem um pergunta parecida com a minha só que é em C#.

Estou a fazer uma rotina de verificação de campo e quando um dos campos de data está em branco ele dá a mensagem. Preciso que quando um desses campos estiver com o foco, mostre o nome do campo no corpo da mensagem.

Códgo:

if (cbbTipoConsultaEmAberto.ItemIndex   = 5) and
   ((dteDataInicial.Text = '  /  /    ') or
    (dteDataFinal.Text    = '  /  /    ')) then
begin
  if (dteDataInicial.Text = '  /  /    ') then dteDataInicial.SetFocus else
  if (dteDataFinal.Text   = '  /  /    ') then dteDataFinal.SetFocus;
  Application.MessageBox(PChar('Combinação de Seleção Inválida!'+#13+'Campo: 
  '+TDBDateEdit({aqui tenho que saber qual o objeto com o foco}).Hint+
  ' está em branco.'),'Aviso',MB_OK+MB_ICONEXCLAMATION);
  exit;
end;  

1 Resposta 1

3

No formulário você consegue retornar o campo que esta ativo com a propriedade ActiveControl, no seu caso ficaria mais ou menos assim:

if (cbbTipoConsultaEmAberto.ItemIndex   = 5) and
   ((dteDataInicial.Text = '  /  /    ') or
    (dteDataFinal.Text    = '  /  /    ')) then
begin
  if (dteDataInicial.Text = '  /  /    ') then dteDataInicial.SetFocus else
  if (dteDataFinal.Text   = '  /  /    ') then dteDataFinal.SetFocus;
  Application.MessageBox(PChar('Combinação de Seleção Inválida!'+#13+'Campo: 
  '+TDBDateEdit(Self.ActiveControl).Hint+
  ' está em branco.'),'Aviso',MB_OK+MB_ICONEXCLAMATION);
  exit;
end;
3
  • 1
    Assim da 'access violation'
    – user82731
    Commented 6/04/2018 às 19:36
  • 2
    Consegui....retirei o .Name e funcionou... ficou assim ...TDBDateEdit(Self.ActiveControl).Hint...
    – user82731
    Commented 6/04/2018 às 19:45
  • 1
    Apliquei a correção na resposta. Commented 9/04/2018 às 12:22

Você deve fazer log-in para responder a esta pergunta.