大家能否幫個忙,看看我下面說的那個功能能否實現
  我想在DBGrid 里面的每一行的最後加一個(BitBtn)按鈕,不知能否實現??????

解决方案 »

  1.   

    好像不可以的,CXGRID好像可以的不过你要实现什么功能,有时可以用其他的方式来实现的。
      

  2.   

    我自己搞明天了  //LOOk: TBitBtn
    先在query 新增一個 fkCalculated  名稱和LOOk名稱設成相同procedure TFM_Purchase.DBGrid3DrawDataCell(Sender: TObject;
      const Rect: TRect; Field: TField; State: TGridDrawState);
    begin
      if (GdFocused in State) then
      begin
        if Field.FieldName= LOOK.Name then   
        begin
          LOOK.Left:= Rect.Left + DBGrid3.Left;
          LOOK.Top := Rect.Top + DBGrid3.Top;
          LOOK.Width := Rect.Right - Rect.Left;
          LOOK.Height := Rect.Bottom - Rect.Top;
          LOOK.Visible:=true;
        end;  end;
    end;procedure TFM_Purchase.DBGrid3KeyPress(Sender: TObject; var Key: Char);
    begin
      if (key <> chr(9)) then
      begin
        if DBGrid3.SelectedField.FieldName= LOOK.Name then
        begin
          LOOK.SetFocus;
          sendMessage(LOOK.Handle,WM_Char,word(key),0);
        end;
      end;
    end;procedure TFM_Purchase.DBGrid3ColExit(Sender: TObject);
    begin
      if DBGrid3.SelectedField.FieldName <> LOOK.Name then
        LOOK.Visible:=false;
    end;