quarta-feira, 4 de novembro de 2009

Selecionar a coluna do dbgrid que foi clicada para pesquisa e deixar seu título em negrito

{No código While é tirado o negrito da coluna que estiver marcada.

A variável sColuna_Pesquisa foi declarada na seção private do form, assim pode ser utilizada em qualquer parte do form.

Eu utilizo para selecionar a coluna a ser pesquisada.

O comando Column.Field.Origin retorna o nome da coluna e da tabela, se tiver sido utilizado no select o inner join.}

procedure TfrmPrincipal.DBGrid1TitleClick(Column: TColumn);
Var
i, iTemp : Integer;
begin
i := 0;
iTemp := DBGrid1.Columns.Count;
While i < iTemp Do Begin
DBGrid1.Columns.Items[i].Title.Font.Style := [];
i := i + 1;
End;
Column.Title.Font.Style := [fsBold];
sColuna_Pesquisa := Column.Field.Origin;
end;

Nenhum comentário:

Postar um comentário