Fórum Como colocar um BitBtn no Dbgrid? #314811
03/03/2006
0
Como colocar um BitBtn no Dbgrid, pois quero colocar um BitBtn(Excluir)?
Eu li um artigo abaixo mas não ajudou.
[url]http://webpages.charter.net/skz/buttongrid.htm[/url]
Agradeço a todos que tentaram me ajudar.
Exvasp
Curtir tópico
+ 0Posts
03/03/2006
Paullsoftware
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
Button1.Visible := DBGrid1.SelectedField = ClientDataSet1CampoBotao;
if Button1.Visible then
if gdFocused in State then
begin
Button1.SetBounds(Rect.Left,Rect.Top, Rect.Right-Rect.Left, Rect.Bottom-Rect.Top);
end;
end;
espero ter ajudado! :wink:
Gostei + 0
03/03/2006
Exvasp
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
Button1.Visible := DBGrid1.SelectedField = ClientDataSet1CampoBotao;
if Button1.Visible then
if gdFocused in State then
begin
Button1.SetBounds(Rect.Left,Rect.Top, Rect.Right-Rect.Left, Rect.Bottom-Rect.Top);
end;
end;
Muito obrigado, ajudou e muitissimo!!!
Gostaria como fazer para q ele apareça em todas as colunas?
Gostei + 0
06/03/2006
Paullsoftware
tire o IF...
Gostei + 0
08/03/2006
Exvasp
tire o IF...[/quote:246754a135]
Muito Obrigado!!!
Ops!!! coloquei a pergunta de forma errada desculpa, na verdade Eu quero saber como fazer o bitbtn ficar visivel em uma coluna do dbgrid em todos os Registros por exemplo na terceira coluna.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)