如何将进度条绘入DBGrid的单元格中？

Question

如题，获得焦点外的行也能显示进度条！
行得通的全分想送！

Answer 1

显示多个任务的进度，有如cuteftp显示多个下载任务里的效果！

Answer 2

那你create几个,画到指定格所在的位置不就可以了

Answer 3

在 dfm 文件里面，把进度条的定义部分放到一个 Cell 的定义里面，试试看好运！

Answer 4

create几个,画到指定格所在的位置不就可以了

Answer 5

结你一个例子
http://search.csdn.net/Expert/topic/769/769021.xml?temp=.7423212

Answer 6

http://borland.mblogger.cn/aiirii/category/463.aspx

Answer 7

procedure TProgressForm.ProgressGrdDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  ProgressRect, ATextRect: TRect;
  DBGridEh: TDBGridEh;
  DataSet: TDataSet;
  Percent: Integer;
  PercentText: string;
begin
  if not (Sender is TDBGridEh) then
    Exit;  DBGridEh := Sender as TDBGridEh;
  DataSet := DBGridEh.DataSource.DataSet;
  with DBGridEh.Canvas do
  begin
    if Column.FieldName = FCompleteFieldName then
    begin
      with DataSet do
        Percent := Round(FieldByName(FCompleteFieldName).AsInteger
          / FieldByName(FTotalFieldName).AsInteger * 100);      with Rect do
        ProgressRect := Types.Rect(Left, Top,
          Left + Round((Right- Left)*(Percent/100))-1, Bottom-1);      Brush.Color := clSkyBlue;
      Font.Color := clSkyBlue;
      DBGridEh.DefaultDrawColumnCell(Rect, DataCol, Column, State);      Brush.Color := clBlue;
      Font.Color := clBlue;
      DBGridEh.DefaultDrawColumnCell(ProgressRect, DataCol, Column, State);      PercentText := IntToStr(Percent) + '%';
      Brush.Style := bsClear;
      Font.Color := clWhite;
      with Rect do
        TextOut(Left + (Right-Left) div 2 -TextWidth(PercentText) div 2,
           Top+1, PercentText);
    end;
  end;  
end;TO guolvguolv(盲鹰) ：
其它只是在画布上画出来滴，呵呵假的！