如何在stringgrid中打击文本(delphi)

发布时间：2020-12-15 04:11:14 所属栏目：大数据来源：网络整理

导读：我想通过右键单击该行来触发stringgrid中一行中所有单元格的文本.我的代码是关于ok的,但是来自该行的单击单元格没有被攻击(另一个很好)！？！此外,我必须首先点击一行,然后右键单击继续,我想只是右键单击但不知道如何： – / 我的代码： procedure TForm1.St

我想通过右键单击该行来触发stringgrid中一行中所有单元格的文本.我的代码是关于ok的,但是来自该行的单击单元格没有被攻击(另一个很好)！？！此外,我必须首先点击一行,然后右键单击继续,我想只是右键单击但不知道如何： – /
我的代码：

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X,Y: Integer);
  var
  i,j: integer;
begin
  if Button = mbRight then
  begin
    j:=StringGrid1.Selection.Top;
    If MessageDlg('Disable row '+IntToStr(j),mtConfirmation,[mbYes,mbNo],mbYes) =mrYes then
    begin
      With Stringgrid1 As TStringGrid Do
        With Canvas Do
        begin
          for i := 0 to 2 do
          begin
            Rect := CellRect  (i,StringGrid1.Selection.Top);
            Font.Style := Font.Style + [fsStrikeOut];
            FillRect(Rect);
            DrawText(Canvas.Handle,PChar(Cells[i,j]),-1,Rect,DT_CENTER );
          end;
        end;
    end;
  end;
end;

完美的事情！
但是,如果我想存储受到攻击的状态,我还会添加一个包含’x’的列;
它工作正常但是
当我创建表单时,我加载stringrid值和第3列中的一些’x’,
我尝试在form.create中使用该代码来打击这些行但不起作用:-(

for J := 1 to stringGrid1.RowCount-1   do
begin
if  stringGrid1.Cells[3,J]='x' then
for I:=1 to 2 do
    begin
    StringGrid1.Canvas.Font.Style := Font.Style + [fsStrikeOut];
    StringGrid1.Canvas.Brush.Color := clBtnFace; // title
    StringGrid1.Canvas.FillRect(Rect);
    Rect.Top := Rect.Top + 4;
    drawText(Canvas.Handle,PChar(StringGrid1.Cells[I,J]),DT_CENTER);
    StringGrid1.Invalidate;
    end
  else
    begin
    StringGrid1.Canvas.Font.Style := Font.Style - [fsStrikeOut];
    StringGrid1.Canvas.Brush.Color := clBtnFace; // title
    StringGrid1.Canvas.FillRect(Rect);
    Rect.Top := Rect.Top + 4;
    drawText(Canvas.Handle,DT_CENTER);
    StringGrid1.Invalidate;
    end;
end;

任何的想法？？？

解决方法

由于属性Rows是TStrings类型,因此您可以在第一个项目的Object中存储有关被标记为已删除的所需信息(例如,快速和脏整数).使用存储的信息在OnDrawCell中完成绘画.

const
  CRLF = #13#10;


procedure TForm3.StringGrid1DrawCell(Sender: TObject; ACol,ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  i: Integer;
begin
  With TStringGrid(Sender) do
  begin
    With Canvas Do
    begin
      if Integer(Rows[ARow].Objects[0]) = 1 then
        Font.Style := Font.Style + [fsStrikeOut]
      else
        Font.Style := Font.Style - [fsStrikeOut];
      if ARow = 0 then
        Brush.Color := clBtnFace // title
      else
        Brush.Color := clWhite;
      FillRect(Rect);
      Rect.Top := Rect.Top + 4;
      DrawText(Canvas.Handle,PChar(Cells[ACol,ARow]),DT_CENTER);
    end;
  end;
end;

procedure TForm3.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer);
const
  C_Message: Array [0 .. 1] of String = ('Disable','Enable');
var
  C,R: Integer;
begin
  StringGrid1.MouseToCell(X,Y,C,R);
  if (Button = mbRight) and (C > -1) and (R > 0 { -1 } ) then
  begin // Allow  Disable or Enable depending on the stored state
    if (MessageDlg(C_Message[Integer(StringGrid1.Rows[R].Objects[0])] + ' row ' + IntToStr(R),mbYes) = mrYes) then
    begin
      If Integer(StringGrid1.Rows[R].Objects[0]) = 0 then
        StringGrid1.Rows[R].Objects[0] := TObject(1)
      else
        StringGrid1.Rows[R].Objects[0] := TObject(0);
      StringGrid1.Invalidate; // force repainting
    end;
  end;
end;

procedure TForm3.FormCreate(Sender: TObject);
var
  R,C: Integer;
begin // Demo content
  With StringGrid1 do
  begin
    FixedCols := 0;
    DefaultDrawing := false;
    Rowcount := 6;
    Colcount := 4;
    DefaultColWidth := 100;
    Rows[0].Text := 'COL 1' + CRLF + 'COL 2' + CRLF + 'COL 3' + CRLF + 'COL 4';
    for R := 1 to Rowcount - 1 do
      for C := 0 to Colcount - 1 do
        Cells[C,R] := Format('Content %d - %d',[C + 1,R]);
  end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!