String Grig и встроенный в него CheckBox

[MeTeOpA]

Возможно ли это? Если да, то как вывести CheckBox В каждой строке в 1 столбце и по клику выделялась цветом вся строка?

[Demien]

Для того чтобы выделить всю строку свойство StringGrid-а "goRowSelect" установите в True.

[MeTeOpA]

А CheckBox?

[Demien]

Из DelpiWorld код упростил:

procedure TForm1.FormCreate(Sender: TObject);
var
  r: trect;
begin
  CheckBox1:=TCheckBox.Create(form1);
  CheckBox1.parent:=form1;
  CheckBox1.Caption:='ok';

  CheckBox1.Visible:=true;

  r:=stringgrid1.CellRect(1,1);
  r.Left:=r.left+stringgrid1.left+2;
  r.right:=r.right+stringgrid1.left+2;
  r.top:=r.top+stringgrid1.top+2;
  r.bottom:=r.bottom+stringgrid1.top+2;
  CheckBox1.BoundsRect:=r;
end;

Как-то так. У меня работает.

[MeTeOpA]

Да,работает прекрасно, спасибо... Скажите а куда вставлять обработчик нажатия по checkbox.

[Demien]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = True then
  ...Чего-то делаем
end;

[Serge_Bliznykov]

только надо не забыть назначить отбработчик события (выделил ключевые моменты):

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure CheckBoxClick(Sender: TObject);
  private
    { Private declarations }
  public
     CheckBox1 : TCheckBox;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CheckBoxClick(Sender: TObject);
begin
  if TCheckBox(Sender).Checked = true
    then Form1.Caption := 'Checked'
    else Form1.Caption := 'UnChecked';

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  r: trect;
begin
  CheckBox1:=TCheckBox.Create(form1);
  CheckBox1.parent:=form1;
  CheckBox1.Caption:='ok';
  CheckBox1.OnClick := CheckBoxClick;

  CheckBox1.Visible:=true;