Put a TCheckBox inside a TStringGrid in Delphi
问题 I want to put a TCheckBox inside a TStringGrid in Delphi in every cell of certain column. I'm using Delphi XE. 回答1: You should draw your own checkboxes, preferably using visual themes, if enabled. This is a simple sketch of how to do that: const Checked: array[1..4] of boolean = (false, true, false, true); procedure TForm4.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); const PADDING = 4; var h: HTHEME; s: TSize; r: TRect; begin if (ACol = 2) and