Fórum Teclas de Funcção F2, F3, F4... Pegar tipo de campos #331105

DMGipLite.qry_di_.Fields[nCampo].DataType ou for iContador := 0 to ComponentCount - 1 do begin if (Components[iContador] is TMaskEdit) then begin if TMaskEdit(Components[iContador]).Text = ´ / / ´ then begin TMaskEdit(Components[iContador]).Hint := ´Click duplo para limpar´; TMaskEdit(Components[iContador]).OnClick := Custom_MaskEditDblClick; TMaskEdit(Components[iContador]).ShowHint := True; TMaskEdit(Components[iContador]).Cursor := crHandPoint; end; end; if (Components[iContador] is TDBEdit) then begin if TDBEdit(Components[iContador]).DataSource.DataSet.FieldByName(TDBEdit(Components[iContador]).DataField).DataType in [ftDate, ftDateTime] then begin TDBEdit(Components[iContador]).Hint := ´Click duplo para limpar´; TDBEdit(Components[iContador]).OnDblClick := Custom_DbEditDblClick; TDBEdit(Components[iContador]).ShowHint := True; TDBEdit(Components[iContador]).Cursor := crHandPoint; end; end; end;