Добавить checkbox в stringrid

Posted by Chas under Delphi

возможно ли по нажатию Tbutton заполнить первый столбец Tstringgridа чекбоксом через строчку, то есть две фиксированные строки пропускаем, затем идет чекбокс, затем пусто, затем еще один чекбокс, если да, то как? и возможно ли проверить чекбоксы каких строк оказались активными?

Stilet
В стринглисте чекбоксы уже есть или их туда нужно создать?
Если создать то предположим так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
CheckBox1: TCheckBox;
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

// Создадим чекбоксы и привяжем к ячейкам грида
procedure TForm1.FormCreate(Sender: TObject);
var i:integer; cb:TCheckBox;
begin
with StringGrid1 do begin
i:=FixedRows;
while i=StringGrid1.TopRow) and (i<=StringGrid1.TopRow+StringGrid1.VisibleRowCount); with TStringGrid(sender) do begin if Objects[aCol,aRow] is TCheckBox then begin with TCheckBox(Objects[aCol,aRow]) do begin Top:=StringGrid1.Top+Rect.Top+4; Left:=StringGrid1.Left+Rect.Left+4; Width:=Rect.Right-Rect.Left; Height:=Rect.Bottom-Rect.Top; Show; end; end else Canvas.FillRect(Rect); end; end; end.[/code] тема на форуме

Похожие статьи

• Сумма столбца, в котором находится минимальный элемент StringGrid
• Добавить строку с верха вниз StringGrid
• Изменение размера динамического StringGrid
• Зашифровать данные из StringGrid
• Выгрузить данные из stringGrid в ms word
• Сохранить таблицу из StringGrid в MS Word
• Проверить stringrid на пустоту
• Сложить столбец в Stringgrid
• Копировать данные StringGrid в другой StringGrid
• Суммы столбцов в StringGrid