【结】DataGridKeyDown**

jianth2005

procedure TSF.DataGrid3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    if key = 13 then
    Begin
    if DataSetBroker1.DataSet.FieldByName('XMMC').AsString.Trim = '' then
      begin
       DataSetBroker1.DataSet.FieldByName('XMMC').FocusControl;
      end;
    end;
end;

这里红色的地方为什么没有触发到?
无论是在信息或者窗体上都没触发
但我把红色的那句放到一按钮中就可以执行到,为什么

lixy

你把断点设在   if DataSetBroker1.DataSet.FieldByName('XMMC').AsString.Trim = '' then
按回车是否代码停到这里

zfang

应该是这个条件不成立造成的吧
if DataSetBroker1.DataSet.FieldByName('XMMC').AsString.Trim = '' then

jianth2005

最初由 lixy 发布
[B]你把断点设在   if DataSetBroker1.DataSet.FieldByName('XMMC').AsString.Trim = '' then
按回车是否代码停到这里 [/B]

停留在那的

jianth2005

最初由 zfang 发布
[B]应该是这个条件不成立造成的吧
if DataSetBroker1.DataSet.FieldByName('XMMC').AsString.Trim = '' then [/B]

条件成立的,我在里面Dialogs过

lixy

晕。你1楼说没触发，那肯定是没成立。

jianth2005

procedure TSF.DataGrid3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    if key = 13 then
    Begin
       DataSetBroker1.DataSet.FieldByName('XMMC').FocusControl;
       Dialogs.ShowMessage('');
    end;
end;
Dialogs已经show出...我再说下需求
我在'XMMC'列回车,如果'XMMC'列的那字段为空则焦点还要在'XMMC'上
但是现在回车的时候,焦点已经转到下一列去了
能告诉我怎么实现么

lixy

直接append

jianth2005

if (Sender as TDataGrid).FocusedColumn = 0 then
begin
    if key = 13 then
    begin
      (Sender as TDataGrid).OptionsBehavior := (Sender as TDataGrid).OptionsBehavior -
                                        [TGroupListOptionBehavior.edgoEnterShowEditor];
    end;
  end
  else
  begin
    (Sender as TDataGrid).OptionsBehavior := (Sender as TDataGrid).OptionsBehavior +
                                      [TGroupListOptionBehavior.edgoEnterShowEditor];
  end;
实现了

lixy

谢谢分享