如何在表格中嵌入复选框?

[wave_f]

想选中一条记录,在表格第一列打勾

[things]

up

[hlddg]

可能用第三方的表格控件可以实现，帮你找,UP

[bbs791109]

可以用第三方控件EHLIB或InforPower.也可是用下面的方法﹕


procedure TDbaForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (gdFocused in State) and
(Column.Field = Table1Senior) then
begin
DBCheckBox1.SetBounds (
Rect.Left + DBGrid1.Left + 1,
Rect.Top + DBGrid1.Top + 1,
Rect.Right - Rect.Left,
Rect.Bottom - Rect.Top);
end;
end;

procedure TDbaForm.DBGrid1ColEnter(Sender: TObject);
begin
if DBGrid1.Columns [DBGrid1.SelectedIndex].
Field = Table1Senior then
DBCheckBox1.Visible := True
else
DBCheckBox1.Visible := False;
end;

[jsyhello]

用第三方控件tms，你可以发现你对表格的一切想象，都很容易实现

[Comer]

up

[joky1981]

用ListView也可以

[henry2003]

告訴你一個好的方法: 雙擊你DBGrid對應的DataSet,跳出一個加入fields的對話框,你點右鍵,new field,加入Data字段,名字為Selected.
在FormShow里加入代碼:
with wwDBGrid1 do
begin
SetControlType('Selected', fctCheckBox, 'True;False');
EditControlOptions:=[ecoCheckboxSingleClick,ecoSearchOwnerForm];
end;
Ok!!

[hameizi]

用listview
将它的样式设置为表格样子的

在设置它的属性

checkboxes 为true就可以了