Uma maneira bem simple para incluir qualquer número de checkboxes em uma coluna de um StringGrid

Esta é uma maneira bem simples de adicionar um checkbox, ou qualquer outro objeto, num StringGrid Para fazer este exemplo, adicione TPanel, e um StringGrid,com 5 colunas e 4 linhas, no Painel . procedure TForm1.CheckBox1Click(Sender: TObject); begin   ShowMessage('Aqui'); end; procedure TForm1.FormCreate(Sender: TObject); begin   StringGrid1.Cells[0,0] := 'Uma Maneira';   StringGrid1.Cells[1,0] := 'Simples';   StringGrid1.Cells[2,0] := 'Para';   StringGrid1.Cells[3,0] := 'Fazer';   StringGrid1.Cells[4,0] := 'Marcar';   AdicionarCheckBoxes; //rotina que adiciona os Check end; procedure TForm1.AdicionarCheckBoxes; var i: Integer;     NovoCheckBox: TCheckBox; begin   limpaBuffer; //é bom não esquecer de limpar   controles não utilizados   for i := 1 to 4 do     begin        StringGrid1.Cells[0,i] := 'a';        StringGrid1.Cells[1,i] := 'b';        StringGrid1.Cells[2,i] := 'c';        StringGrid1.Cells[3,i] := 'd';        NovoCheckBox := TCheckBox.Create(Application);        NovoCheckBox.Width := 0;        NovoCheckBox.Visible := false;        NovoCheckBox.Caption := 'OK';        NovoCheckBox.Color := clWindow;        NovoCheckBox.Tag := i;        NovoCheckBox.OnClick :=  CheckBox1.OnClick; //Associar um evento OnClick já existente para o Novo CheckBox        NovoCheckBox.Parent := Panel1;        StringGrid1.Objects[4,i] := NovoCheckBox;        StringGrid1.RowCount := i;     end;   AlinhaCheck; // agora vamos alinhar o check na celular end; Procedure TForm1.Limpabuffer; var   NovoCheckBox: TCheckBox;   i: Integer; begin    for i := 1 to StringGrid1.RowCount do       begin          NovoCheckBox := (StringGrid1.Objects[4,i] as TCheckBox);          if NovoCheckBox <> nil then // o objeto deve existir para poder ser destruído          begin             NovoCheckBox.Visible := false;             StringGrid1.Objects[4,i] := nil;          end;       end; end; Procedure TForm1.AlinhaCheck; var   NovoCheckBox: TCheckBox;   Rect: TRect;   i: Integer; begin   for i := 1 to StringGrid1.RowCount do     begin        NovoCheckBox := (StringGrid1.Objects[4,i] as TCheckBox);        if NovoCheckBox <> nil then          begin            Rect := StringGrid1.CellRect(4,i); // aqui descobrimos a posição da celula para utilizarmos no check            NovoCheckBox.Left := StringGrid1.Left + Rect.Left+2;            NovoCheckBox.Top := StringGrid1.Top + Rect.Top+2;            NovoCheckBox.Width := Rect.Right - Rect.Left;            NovoCheckBox.Height := Rect.Bottom - Rect.Top;            NovoCheckBox.Visible := True;         end;      end; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin   if not (gdFixed in State) then      AlinhaCheck; end;

Quebra-Linha

Colaborador..: Paulo Eduardo Charone Bitar Jr
Categoria(s).: Delphi;
Versão.......: 1.0
Data.........: 10/09/2004 11:41:47
Visualizado..: 4368 vezes
Fonte........: ND