預設為一欄Key,一欄Value 可否增加為 產品名稱.金額.數量 其中產品名稱和金額是固定值 只讓使用者輸入數量 若可以的話,更希望可以做成 產品名稱.金額.數量.產品名稱.金額.數量 也就是一列二筆 若ValueListEditor沒辦法做到,有沒有其他元件可以做到呢?? 發表人 - angi 於 2005/01/21 16:46:54

Hi Angi,    建議如下列討論所言，改用 TStringGrid 或是 TListView    http://delphi.ktop.com.tw/topic.php?topic_id=54675 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: Hi Angi, 建議如下列討論所言，改用 TStringGrid 或是 TListView http://delphi.ktop.com.tw/topic.php?topic_id=54675 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> 用stringgrid來做的話 請問如何設定第一欄 是唯讀? 另外單行和雙行 如何實作讓他不同顏色 方便閱覽呢?Thanks

Hi All,    1.設定 StringGrid 的 FixedCols 為 1，第一欄將無法編輯    2.請參考 http://delphi.ktop.com.tw/topic.php?topic_id=63042 http://delphi.ktop.com.tw/topic.php?topic_id=63716 在 StringGrid 的 OnDrawCell 事件上加入以下程式碼

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Obj : TstringGrid;
  BK_Color,Font_Color : TColor;
begin
  Obj := TStringGrid(Sender);
  if (ACol > Obj.FixedCols -1 ) and (ARow > Obj.FixedRows - 1) then
    begin
      if not ((gdSelected in State) or (gdFocused in State)) then
        begin
          if ACol mod 2 = 0 then
            begin
              BK_Color := clMoneyGreen;
              Font_Color := clWindowText;
            end
          else
            begin
              BK_Color := clCream;
              Font_Color := clWindowText;
            end;
          Obj.Canvas.Brush.Color := BK_Color;
          Obj.Brush.Style := bsSolid;
          Obj.Font.Color := Font_Color;
          Obj.Canvas.FillRect(Rect);
          Obj.Canvas.TextOut(Rect.Left   2,Rect.Top   2,Obj.Cells[ACol,ARow]);
        end;
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

除了第一欄是用FixedCols 來設定 有沒有辦法指定特定欄位(ex.第四欄)也是唯讀的??

Hi Angi,    兩種方法 1.在 OnSelectCell 事件加入以下程式碼，讓 user 無法 Select 第四 Column

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  if ACol = 3 then // 3 代表第四 column
    CanSelect := False;
end

2.在 OnKeyPress 事件加入以下程式碼，讓 user 無法編輯第四 Column

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if TStringGrid(Sender).Col = 3 then // 3 代表第四 column
    key := #0;
end;

但是，此兩種方式還是無法避免由程式中編輯，僅能限制前端使用者編輯 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

哇~ 沒想到還有這東西可以用 if ACol = 3 then // 3 代表第四 column     CanSelect := False;    Fishman 十萬分感謝啦!!    

再問一下 如果在元件一開始 想把游標預設在第三欄第二列,有辦法嗎?? 因為發現用 procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if ACol = 3 then // 3 代表第四 column CanSelect := False; end 而系統預設在第一欄第二列會失效... 也就是原來預設的那格,就是我不想提供輸入的欄位了 剛進去第一次若去改預設的那個欄位 上面的程式就控制不到了

Hi Angi,

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Col := 2;
  StringGrid1.Row := 1;
end;

或是用第二個 Solution !! ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

YA~ 高手 Fishman 謝謝啦... < >< >