例如我現在有個17*13的string grid，如何令[3,4],[5,4]的cell變成invisible?

題義不明,你只要Cells[3,4],Cells[5,4] 變成invisible是怎樣的情形?無法想像. 是不是要將這兩個 >

引言: 題義不明,你只要Cells[3,4],Cells[5,4] 變成invisible是怎樣的情形?無法想像. 是不是要將這兩個 > < face="Verdana, Arial, Helvetica"> 我想令user看不到之餘，也不能add資料。[謝謝回應]

試試看.. < class="code"> procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (ACol in [3,5]) and (ARow = 4) then with TStringGrid(Sender) do begin Canvas.Brush.Color := clBlack; Canvas.Rectangle(Rect); end; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin CanSelect := not( (ACol in [3,5]) and (ARow=4) ); end;

引言: 試試看.. < class="code"> procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (ACol in [3,5]) and (ARow = 4) then with TStringGrid(Sender) do begin Canvas.Brush.Color := clBlack; Canvas.Rectangle(Rect); end; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin CanSelect := not( (ACol in [3,5]) and (ARow=4) ); end;

引言: 試試看.. < class="code"> procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (ACol in [3,5]) and (ARow = 4) then with TStringGrid(Sender) do begin Canvas.Brush.Color := clBlack; Canvas.Rectangle(Rect); end; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin CanSelect := not( (ACol in [3,5]) and (ARow=4) ); end;

謝謝你，問題解決了。 但若果唔用clblack這種顏色，想這兩個Cell貼成背景的顏色，請問怎樣做?謝謝。

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (ACol in [3,5]) and (ARow = 4) then with TStringGrid(Sender) do begin Canvas.Brush.Color := Self.Color; Canvas.Rectangle(Rect); end; end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol in [3,5]) and (ARow = 4) then
    with TStringGrid(Sender) do
      begin
        Canvas.Brush.Color := Self.Color;//Self=TForm1
        Canvas.Rectangle(Rect);
      end;
end;

引言:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol in [3,5]) and (ARow = 4) then
    with TStringGrid(Sender) do
      begin
        Canvas.Brush.Color := Self.Color;//Self=TForm1
        Canvas.Rectangle(Rect);
      end;
end;

但我張Form上面cover左張image1, 怎樣才使cell與image1的顏色一樣呢?謝謝

我目前可以想得到的做法,你要實際實作看看... < class="code"> procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var R: TRect; begin if (ACol in [3,5]) and (ARow = 4) then with TStringGrid(Sender) do begin R := ClientRectToScreenRect(TStringGrid(Sender), Rect); R := ScreenRectToClientRect(Image1, R); Canvas.CopyRect(Rect,Image1.Picture.Bitmap.Canvas, R); end; end; function TForm1.ClientRectToScreenRect(Control: TControl; Rect: TRect): TRect; begin Result.TopLeft := Control.ClientToScreen(Rect.TopLeft); Result.BottomRight := Control.ClientToScreen(Rect.BottomRight); end; function TForm1.ScreenRectToClientRect(Control: TControl; Rect: TRect): TRect; begin Result.TopLeft := Control.ScreenToClient(Rect.TopLeft); Result.BottomRight := Control.ScreenToClient(Rect.BottomRight); end;