我做了DBGridEh的下拉菜单,用UpdateData方法来触发事件:
procedure TForm1.DBGridEh1Columns2UpdateData(Sender: TObject;
var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
ADOTable1.edit;
ADOTable1.FieldByName('DeptId').Value := ADOTable2DeptId.Value;
ADOTable1.FieldByName('DeptName').Value := ADOTable2Name.Value;
ADOTable1.FieldByName('Notes').Value := ADOTable2Notes.Value;
end;
但是只有用鼠标点击下一单元格或按回车后才触发,如果我想选中下拉菜单选项就触发事件,怎么做呢?谢谢!!
procedure TForm1.DBGridEh1Columns2UpdateData(Sender: TObject;
var Text: String; var Value: Variant; var UseText, Handled: Boolean);
begin
ADOTable1.edit;
ADOTable1.FieldByName('DeptId').Value := ADOTable2DeptId.Value;
ADOTable1.FieldByName('DeptName').Value := ADOTable2Name.Value;
ADOTable1.FieldByName('Notes').Value := ADOTable2Notes.Value;
end;
但是只有用鼠标点击下一单元格或按回车后才触发,如果我想选中下拉菜单选项就触发事件,怎么做呢?谢谢!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货