if  (Sender as TwwDBGrid).DataSource.DataSet.RecNo=Recnotemp then begin     (Sender as TwwDBGrid).Canvas.Pen.Color := clred;     (Sender as TwwDBGrid).Canvas.Rectangle(0,0,100,400);     (Sender as TwwDBGrid).Canvas.MoveTo(15,Rect.Bottom);     (Sender as TwwDBGrid).Canvas.LineTo( (Sender as TwwDBGrid).ClientWidth,Rect.Bottom); end;    有問題確劃不出來,橫線是可以的,但是想框起來確try不出來 想做出圖片中的樣子

一般來說，想要在Grid 上劃上東西。 本身要考慮到 Grid 在DrawCell 時會覆蓋原本畫好的東西。 另外也要初步瞭解 TWincontrol 在Paint時 及 刷新機制 的運作方式。 這樣才不會徒勞無功。 建議你可以利用 procedure Paint;Override; 事件。 在 inherited 之後加入畫框的動作。 就能夠成功了避免畫好又被蓋掉的情形。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

有點聽不太懂..不好意思 可以詳細一點嗎??

如：

type
  TDBGrid = Class(DBGrids.TDBGrid)
  Protected
    procedure Paint; override;
  end;
  TForm1 = class(TForm)
  .....    procedure TDBGrid.Paint;
begin
  inherited;
  Canvas.Rectangle(0,0,100,400);
end;    

～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～