stringgrid 的某一欄位中 有很多checkbox直直列下來 可以讓我去勾選第二欄位的資料 stringgrid可以有checkbox可以選嗎 該怎麼寫呢 謝謝各位大大

您好: 要自己手動作,以下範例給您參考,試過了有問題再問. http://delphi.ktop.com.tw/topic.php?topic_id=4699 http://delphi.ktop.com.tw/topic.php?topic_id=69289 程式是用DBGrid去做,不過原理一樣. 發表人 - supman 於 2005/06/05 19:32:07

Dear pricejit2: 請參考 http://delphi.ktop.com.tw/topic.php?topic_id=48816 http://delphi.ktop.com.tw/topic.php?topic_id=36136 http://delphi.ktop.com.tw/topic.php?topic_id=60586 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29502    善用搜尋...

簡單作法。臨時寫的....

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
Var
  Flags : Integer;
begin
  if (ARow>0) and (ACol=2) then
  begin
    StringGrid1.Canvas.FillRect(Rect);
    Inc(Rect.Top,4);
    Dec(Rect.Bottom,4);        Flags := DFCS_BUTTONCHECK;
    if StringGrid1.Cells[ACol,ARow]='1' then Flags := Flags or DFCS_CHECKED;
    DrawFrameControl(StringGrid1.Canvas.Handle,Rect,DFC_BUTTON,Flags );
  end;
end;    procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  { 若Grid 不允許修改編輯。則可省略此段處理}
  if (ARow>0) and (ACol=2) then
  begin
    StringGrid1.Options := StringGrid1.Options - [goEditing];
    StringGrid1.EditorMode := False;
  end else StringGrid1.Options := StringGrid1.Options   [goEditing];
end;    procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  With StringGrid1 do
    if (Row>0) and (Col=2) then
    begin
      Cells[Col,Row] := inttostr(ORD(Cells[Col,Row]<>'1'));
    end;
end;

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