Tem como checa o qual o tipo do campo de um grid
Estou tentando fazer um funçao que pesquisa em uma tabela por qualquer coluna que estiver em um grid, não sei se tem algum componente pronto para issso.
Na função que estou fazendo estou com dificuldade de colacar a
mascara no campo de pesquisa.
Estou tentando checa o tipo do campo para poder colocar a mascara
no campo de pesquisa.
Exemplo:
Se for uma coluna de data no Grid gostaria que O EDIT de pesquisa fica-se com o Mascara ( / / ) de data.
Na função que estou fazendo estou com dificuldade de colacar a
mascara no campo de pesquisa.
Estou tentando checa o tipo do campo para poder colocar a mascara
no campo de pesquisa.
Exemplo:
Se for uma coluna de data no Grid gostaria que O EDIT de pesquisa fica-se com o Mascara ( / / ) de data.
J@ck
Curtidas 0
Respostas
Carlos_28
09/05/2003
private
ColSelecionada: TColumn;
ListWidthColumn: TStringList;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm.GridMainTitleClick(Column: TColumn);
BEGIN
ColSelecionada := Column;
Case ColSelecionada.Field.DataType of
ftInteger: txtFiltro.EditMask := ´!999999;1; ´;
ftString : txtFiltro.EditMask := ´´;
ftDateTime : txtFiltro.EditMask := ´!99/99/9999;1; ´;
end;
END;
end;
ColSelecionada: TColumn;
ListWidthColumn: TStringList;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm.GridMainTitleClick(Column: TColumn);
BEGIN
ColSelecionada := Column;
Case ColSelecionada.Field.DataType of
ftInteger: txtFiltro.EditMask := ´!999999;1; ´;
ftString : txtFiltro.EditMask := ´´;
ftDateTime : txtFiltro.EditMask := ´!99/99/9999;1; ´;
end;
END;
end;
GOSTEI 0