Buscar

CheckBox no StringGrid

Código

No evento OnDrawCell do StringGrid coloque o codigo abaixo:


 if (ACol = 0)and(ARow>0) Then begin
  if (StringGrid1.Cells[ACol,ARow] = 'OK') then
  DrawFrameControl(StringGrid1.Canvas.Handle, Rect,                    DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_CHECKED) // Desenha o CheckBox desmarcado

 else
 DrawFrameControl(StringGrid1.Canvas.Handle, Rect,   DFC_BUTTON, DFCS_BUTTONCHECK); // Desenha o CheckBox marcado
   end;


//---------------------------------------------\

Para funcionar coloque o seguinte comando no evento OnKeyDow do StringGrid :

 case key of
 VK_SPACE : begin
if(StringGrid1.Cells[0,StringGrid1.Row] = '') then
(StringGrid1.Cells[0,StringGrid1.Row] := 'OK')
else
(StringGrid1.Cells[0,StringGrid1.Row] := '');
   end;

Espero ter ajudado.
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 10/03/10
Por: Jonathan
Visualizada: 8762 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009