Fórum Checkbox no dbGrid #192786

se vc quiser eu posso mandar dois exemplos para o seu e-mail, qualquer coisa entre em contato no e-mail leandroribas@onda.com.br

Insira um DBCheckBox sobre o DBGrid e defina o campo desejado.

No evento OnDrawColumnCell coloque o código:

if (gdFocused in State) and (Column.Field = Campo) then
begin
DBCheckbox1.SetBounds(
Rect.Left + DBGrid1.Left + 1,
Rect.Top + DBGrid1.Top + 1,
Rect.Right - Rect.Left,
Rect.Bottom - Rect.Top);
end;


No evento OnCollEnter:

if DBGrid1.Columns[DBGrid1.SelectedIndex].Field = Campo then
DBCheckbox1.Visible := True
else
DBCheckBox1.Visible :=False;


E por fim, no evento OnKeyPress:

if DBCheckBox1.Visible and (Ord(Key) > 31) then
begin
Key :=#0;
Table1.Edit;
DBCheckBox1.Checked := not DBCheckBox1.Checked;
DBCheckBox1.Field.AsBoolean := DBCheckBox1.Checked;
end;