在DBGrid的DBClick事件中写:
if Not Table.State in dsEditModes) then TAble.Edit;
if TableSelected.asString ='0' then
TabeleSelected.asString := '1';
else
TabeleSelected.asString := '0';
end;
在Table的字段Selected的OnGetText的事件中写:
if Sender.asString := '1' ten
Text := 'V'
else
Text := '╳';