stringgrid 和DBGridEh这个冲突怎么处理?(20分)

R

richardi

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TfrmApp.strGridSelectCell(Sender: TObject;
ACol,
ARow: Integer;
var CanSelect: Boolean);
begin
if not(Acol in[2,3,6,11,12,13,15]) then
begin
N2.Enabled :=false;
strGrid.Options :=strGrid.Options-[goEditing];
end
else
begin
N2.Enabled :=true;
strGrid.Options:=strGrid.Options+[goEditing];
end;
end;
提示错误
[Error] uApp.pas(147): Incompatible types: 'Grids.TGridOption' and 'GridsEh.TGridOption'
[Error] uApp.pas(152): Incompatible types: 'Grids.TGridOption' and 'GridsEh.TGridOption'
 
0

007vivi

Unregistered / Unconfirmed
GUEST, unregistred user!
注释其中一个引用单元。。。
 
Top Bottom