Como colocar um BitBtn no Dbgrid?

Delphi

03/03/2006

Olá estou com a seguinte dúvida:
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

Exvasp

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

03/03/2006

tente asssim:
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
Exvasp

Exvasp

03/03/2006

tente asssim: 
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:


Muito obrigado, ajudou e muitissimo!!!
Gostaria como fazer para q ele apareça em todas as colunas?


GOSTEI 0
Paullsoftware

Paullsoftware

03/03/2006

Gostaria como fazer para q ele apareça em todas as colunas?


tire o IF...


GOSTEI 0
Exvasp

Exvasp

03/03/2006

[quote:246754a135]Gostaria como fazer para q ele apareça em todas as colunas?


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
POSTAR