чек боксы в dbgrid

На событие OnDrawColumnCell повесьте вызов процедуры DrawGridCheckBox():

DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);

DrawFlags := DrawFlags or DFCS_CHECKED;

DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;// DFCS_BUTTONCHECK

DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);

Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ' ');

procedure DrawGridCheckBox(Canvas: TCanvas; Rect: TRect; Checked: boolean);

- Хpoничecкиe зaвиcaния и cлaбocть yмa. Чeм бyдeм лeчить?

- Дeвянocтo восемь.

- Bиндoвc, тoлькo ceйчac пocтyпил.

- Фaмилия бoльнoгo?

Bpaч дeлaeт oбхoд, гpaдycники y бoльных coбиpaeт, пpoпиcывaeт лeчeниe, пoдхoдит к кoйкe oднoгo бoльнoгo и cпpaшивaeт сecтpy:

Отправить форму поиска

Введите условия поиска

Delphi FAQ - Часто задаваемые вопросы

Благодарю за поддержку!

CheckBox в DBGrid - Delphi Sources FAQ