关于dbgrieh 属性的问题

[crazy_boom]

原代码中为dbgrid 我现在给替换成了 dbgrideh
在窗口onshow 的时候 我写了这句 if Is_excel then DBGrid1.EditActions.geaPasteEh := true
总是提示 [Error] dj.pas(5596): Record, object or class type required
我再手写到 dbgrid1.EditActions. 写完点后 正常应该继续跳出editactions中的属性了 可是写到这 就提示这个错误
[Pascal Error] dj.pas(1): Unable to invoke Code Completion due to errors in source code

如果我在dbgrideh 上 手动选择上 EditActions 的geaPasteEh 为True 就可以。但是我需要 根据条件 来确定
EditActions.geaPasteEh 的值为TRUe 还是为false
是不是编译器的问题

[lyhoo163]

你的语句写错了。应该这样：

procedure TForm1.Button1Click(Sender: TObject);
begin
  DBGridEh1.EditActions:=[geaPasteEh];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DBGridEh1.EditActions:=[];
end;

[月影雕零]

厉害，然而我都看不懂你们在说什么

引用 1 楼 lyhoo163 的回复:

你的语句写错了。应该这样：

procedure TForm1.Button1Click(Sender: TObject);
begin
  DBGridEh1.EditActions:=[geaPasteEh];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DBGridEh1.EditActions:=[];
end;