Skip to main content
removeu 5 caracteres do conteúdo
Fonte Link
Roberto de Campos
  • 5,3mil
  • 2
  • 21
  • 33

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.Name).Hint+
  ' está em branco.'),'Aviso',MB_OK+MB_ICONEXCLAMATION);
  exit;
end;

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.Name).Hint+
  ' está em branco.'),'Aviso',MB_OK+MB_ICONEXCLAMATION);
  exit;
end;

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;
Fonte Link
Roberto de Campos
  • 5,3mil
  • 2
  • 21
  • 33

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.Name).Hint+
  ' está em branco.'),'Aviso',MB_OK+MB_ICONEXCLAMATION);
  exit;
end;