DBGRID中镶嵌SpeedButton的问题

Question

这个简单，你要把设个button设为不可见，然后在他单击cell的时候判断是不是你要的那个cell然后把这个定位到这个cell的右边可以用left,width来计算
如果不是你那个cell啦，就可以不可见

Answer 1

这样不是要不断的计算CELL的坐标吗，而且每一个CELL不都要判断么？我认为效率不是很理想，愿与你交流看法

Answer 2

如何动态镶嵌一个SPEEDBUTTON啊？

Answer 3

如何动态镶嵌一个SPEEDBUTTON啊？

Answer 4

将Column的BorderStyle属性设为cbsEllipsis，
然后在Grid 的onEditButtonClick事件中写代码不行么？

Answer 5

必须在DBGRID的COLUMNS中加入固定的COLUMN.
然后可将定义好的某一列的BUTTONSTYLE属性设为CBSELLIPSIS
可就可以在OnEditButtonClick编写动作了

Answer 6

给一个例子,使用的是button,speedbutton也一样的.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdfocused in state) and (column.Field=table1.Fields.Fields[0]) then
begin
 button1.SetBounds(rect.Left+dbgrid1.Left+1,rect.Top +dbgrid1.Top+1,rect.Right-rect.Left,rect.Bottom-rect.Top);
 end;end;

Answer 7

为你贴上以前收藏的帖子：
主　　题：  如何在一个Grid的一行中加入一个check控件，以示有没有被选中该行 
作　　者：  anjiechang (anjie)  
等　　级：    
信 誉 值：  100 
所属论坛：  Delphi 
问题点数：  50 
回复次数：  3 
发表时间：  2002-04-23 18:14:54 
   
 
   
最近我在写一个小程序，但是碰到这个难题，怎么也解决不了，望高手赐教！！
  
 
 
 回复人： softwing(向前看) (  ) 信誉：100  2002-04-23 20:10:00  得分:0  
 
 
  找几个控件看看吧：InfoPower，ehLib，Formula One
再贴一篇文章：
---- Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。 
---- 1、 在Delphi 4.0中新建一个项目。 
---- 2、 分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板上DBGrid，DBComboBox四个组件到Form1上。 
---- 3、 设置各个组件的属性如下： rcf1对象  属性 设定植 
Form1 Caption   '在DBGrid中插入SpinEdit组件示例' 
DataSource1 DataSet Table1 
Table1 DatabaseName DBDEMOS 
　 TableName 'teacher.DBF' 
　 Active True 
DBGrid1 DataSource DataSource1 
DBComboBox1 DataField SEX 
　 DataSource DataSource1 
　 Visible False 
　 Strings Items.       '男'| '女' ---- 注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是“男”或者是“女”。 ---- 4、 DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的字段一致时，移动组合框到获得焦点的网格上，并且
使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下： 
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;  Field: TField; State: TGridDrawState);
begin
    if (gdFocused in State) then
    begin
        if (Field.FieldName = DBComboBox1.DataField ) then
        begin
            DBComboBox1.Left := Rect.Left + DBGrid1.Left;
            DBComboBox1.Top := Rect.Top + DBGrid1.top;
            DBComboBox1.Width := Rect.Right - Rect.Left;
            DBComboBox1.Height := Rect.Bottom - Rect.Top;
            DBComboBox1.Visible := True;
     end;
  end;
end;---- 5、 DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下： 
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
    If DBGrid1.SelectedField.FieldName  = DBComboBox1.DataField then
    begin
        DBComboBox1.Visible := false;
   end;
end;---- 6、 当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下： 
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
    if (key < > chr(9)) then
    begin
        if (DBGrid1.SelectedField.FieldName   =DBComboBox1.DataField) then
        begin
             DBComboBox1.SetFocus;
             SendMessage(DBComboBox1.Handle, WM_Char, word(Key), 0);
        end;
    end;
end;  
 
Top 
 
 回复人： codelover(蜡笔小钦) (  ) 信誉：100  2002-04-23 22:29:00  得分:0  
 
 
  一下是在dbgrid的一个字段中画个cross的代码，
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if Column.FieldName='mycol' then
   begin
      dbgrid1.canvas.Pen.width:=2;
      dbgrid1.canvas.Pen.Color:=clRed;
      dbgrid1.Canvas.Moveto(Rect.left,Rect.top);
      dbgrid1.Canvas.LineTo(rect.right,rect.bottom);
      dbgrid1.Canvas.MoveTo(rect.Right,rect.top);
      dbgrid1.canvas.LineTo(rect.Left,rect.bottom);
   end
   else
      dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
关于你的问题我想加载一个cross形状的icon也可以，只是没想好怎么在Canvas中加载一个icon，不过既然可以在cell中画图，我想画个叉也应该可以，你可以试试。
  
 
Top 
 
 回复人： codelover(蜡笔小钦) (  ) 信誉：100  2002-04-23 22:31:00  得分:0