DBGrid - Clube Delphi Edição 60

12/08/2008

1

Na Edição 60 da revista clube delphi tem uma dica muito boa para criar uma grade master/detail com dbgrid, porém esta fonte não esta 100¬.
1 - Quando executa o projeto a grid detail já vem aberta.
2 - Ao clicar na coluna onde aparece o sinal de + ele deveria mudar para o sinal de - e aparecer a grid, esta por sua vez aparece só que o sinal continua com o +.

Se alguém puder me ajudar a deixar este código 100¬ eu agradeço.
O link para o projeto que veio na revista se encontra logo abaixo. Ou se preferir pode baixar o site mesmo pela edição 60.


[url]http://rapidshare.com/files/136771232/DBGridMasterDetail.rar.html[/url]


Responder

Posts

12/08/2008

Craudio

Assim eu acho que funciona.

procedure TForm1.DBGrid1DrawColumnCell(
Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Index = 0 then
begin
DBGrid1.Canvas.FillRect(Rect);
ImageList1.Draw(DBGrid1.Canvas,Rect.Left,Rect.Top + 1,0);
if gdFocused in State then
begin
ImageList1.Draw(DBGrid1.Canvas,Rect.Left,Rect.Top + 1,1);
DBGrid2.SetBounds(
Rect.Left + 22,Rect.Top + 2,
DBGrid2.Width,DBGrid2.Height);
end;
end;
end;


Responder

12/08/2008

Leufmt

Muito obrigado claudio.
Agora outro problema:
Clico uma vez o sinal muda para - e aparece a grid (até ai tudo certo), porem se eu clicar novamente deverá mudar para + e desaparecer a grid.

E agora?


Responder

26/05/2016

Lauro Dalpra

Bom Dia!

Estou buscando uma solução para Grid master-Detail e encontrei teus post, vc consegui desenvolver uma solução ou oq vc esta usando ?

O link a baixa q vc tinha postado esta corrompido.

http://rapidshare.com/files/136771232/DBGridMasterDetail.rar.html

Gostaria de saber se pode compartilhar a solução q esta usando.


Obrigado pela atenção!
Responder