如何判断用标鼠选中的DBGRID里的某个单元格里的值是空?并在MOUSE点一下后提示?if dbgrid1.SelectedField.????  then //这里的判断要怎么写?
 begin
  showmessage('IsNull');
 end
 else begin
  statusbar1.Panels.Items[0].Text:=dbgrid1.SelectedField.AsString;
 end;

解决方案 »

  1.   

    procedure TForm1.DBGrid1CellClick(Column: TColumn);
    begin
      if trim(Column.Field.AsString) = '' then
        showmessage('null')
      else
        self.Caption := trim(Column.Field.AsString) ;
    end;
      

  2.   

    ???? 应该是   Text=''
      

  3.   

    procedure TForm1.DBGrid1CellClick(Column: TColumn);
    begin
      if trim(Column.Field.AsString) = '' then
        showmessage('null')
      else
        statusbar1.Panels.Items[0].Text := trim(Column.Field.AsString) ;
    end;
      

  4.   

    self.Caption是窗体的标题,简单处理而已。:)
      

  5.   

    DBGrid控件有一个OnCellClick事件(好像是这个名字,反正就是说在单元格上点了一下),这个过程会传入一个Column参数,这个就是对应的字段引用,
    if Column.Field.asstring = '' then is null
      

  6.   

    if dbgrid1.SelectedField.AsString=''  then