快疯了!!!在StringGrid上生成panel产生的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  mypanel:tpanel;
begin
  mypanel:=tpanel.create(RzStringGrid1);
  mypanel.Parent:=StringGrid1;
  mypanel.Width:=180;
  mypanel.caption:='yes';
  mypanel.Top:=100;
  mypanel.Left:=120;
  mypanel.Height:=50;
end;
通过上述代码生成了panel之后，只要StringGrid的滚动条滚动后，就会出现如下图的情况。
如果我用mypanel.repaint，就会使mypanel.top和left乱掉，于是我在StringGrid1TopLeftChanged事件里控制滚动条滚动后mypanel的.top和left时，stringgrid上只有一两个panel时，效果还免强可以，但panel很多时，panel在改变top和left时就会看得到位置变动时的闪动。
求高手帮我解决。非常感谢。 

Answer 1

是在不知道你的用意何在，你可以在drawcell事件中将panel绑定到一个区域

Answer 2

为什么要在上面弄panel呢。看你那个GIF图片，明显是panel被覆盖后没有重绘造成的

Answer 3

如果我用mypanel.repaint，就会使mypanel.top和left乱掉，于是我在StringGrid1TopLeftChanged事件里控制滚动条滚动后mypanel的.top和left时，stringgrid上只有一两个panel时，效果还免强可以，但panel很多时，panel在改变top和left时就会看得到位置变动时的闪动。

Answer 4

你就把panele绑定到一个区域把procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  //根据行列限制panel的大小，可以改为一个区域的
  if (ACol = 1) and (ARow = 1) then
  begin
    Panel1.SetBounds(Rect.Left,Rect.Top,rect.Right-rect.Left,Rect.Bottom-rect.Top);
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Parent := StringGrid1;
end;

Answer 5

试试这段代码吧，看看是否满足你的要求！
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, RzGrids, StdCtrls;type
  TForm1 = class(TForm)
    grdTest: TRzStringGrid;
    btnCreatePanel: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnCreatePanelClick(Sender: TObject);
    procedure grdTestTopLeftChanged(Sender: TObject);
  private
    FPanelList: TList;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationtype
  PRecPanel = ^TRecPanel;
  TRecPanel = record
    Panel  : TPanel;
    LeftCol: Integer;
    TopRow : Integer;
  end;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  FPanelList := TList.Create;
end;procedure TForm1.FormDestroy(Sender: TObject);
var
  FData: PRecPanel;
begin
  while FPanelList.Count > 0 do
  begin
    if Assigned(FPanelList.Items[0]) then
    begin
      FData := PRecPanel(FPanelList.Items[0]);
      FData^.Panel.Free;
      Dispose(FData);
    end;
    FPanelList.Delete(0);
  end;
  FPanelList.Free;
end;procedure TForm1.btnCreatePanelClick(Sender: TObject);
var
  FData : PRecPanel;
  FPanel: TPanel;
begin
  FPanel := TPanel.Create(grdTest);
  FPanel.Parent  := grdTest;
  FPanel.Caption := 'Panel ' + IntToStr(FPanelList.Count + 1);
  FPanel.Left    := 100;
  FPanel.Top     := 30;
  FPanel.Width   := 180;
  FPanel.Height  := 50;
  New(FData);
  FData^.Panel   := FPanel;
  FData^.LeftCol := grdTest.LeftCol;
  FData^.TopRow  := grdTest.TopRow;
  FPanelList.Add(FData);
end;procedure TForm1.grdTestTopLeftChanged(Sender: TObject);
var
  I    : Integer;
  FData: PRecPanel;
begin
  LockWindowUpdate(grdTest.Handle);
  try
    for I:=0 to FPanelList.Count-1 do
    begin
      FData := PRecPanel(FPanelList.Items[I]);
      FData^.Panel.Left := FData^.Panel.Left - (grdTest.LeftCol - FData^.LeftCol) * grdTest.DefaultColWidth;
      FData^.Panel.Top  := FData^.Panel.Top - (grdTest.TopRow - FData^.TopRow) * grdTest.DefaultRowHeight;
      FData^.LeftCol    := grdTest.LeftCol;
      FData^.TopRow     := grdTest.TopRow;
    end;
    grdTest.Invalidate;
  finally
    LockWindowUpdate(0);
  end;
end;end.

Answer 6

回楼上的朋友，你的方法，在StringGrid1TopLeftChanged事件里控制滚动条滚动后，有出现有一个问题：“panel是滚动到第0行才会看不到”，而我要的是滚动到第一行(title那一行)就要看不到。。
因为第0行和第0列是做为title的，不能因为panel的滚动而被它覆盖。

Answer 7

如果你的panel可以有固定的区域，那你就在drawcell绑定吧，那个应该是最好的方法了

Answer 8

如果可以使用DrawCell来绑定，就采用bdmh的方法，如果不能满足你的要求，就采用我的方法，最多就是再添加两个StringGrid作为标题栏和边栏就可以了，处理一下TopLeftChange的事件，让这两个假的标题栏和边栏同步滚动，直接就可以满足你的要求了。

Answer 9

代码：
procedure TForm1.FormCreate(Sender: TObject);
begin
 Panel1.Parent:=RzStringGrid1;
end;procedure TForm1.RzStringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol = 1) and (ARow = 1) then
  begin
    Panel1.SetBounds(Rect.Left,Rect.Top,rect.Right-rect.Left,Rect.Bottom-rect.Top);
  end;
end;效果：

Answer 10

create事件中加入
StringGrid1.DoubleBuffered := True;

Answer 11

我用StringGrid1试过没有问题，那就自己找办法把

Answer 12

我用StringGrid1和RZStringGrid1都试过。。问题都一样存在。。

Answer 13

你这样试试procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol = 2) and (ARow = 2) then
  begin
    Panel1.SetBounds(Rect.Left,Rect.Top,rect.Right-rect.Left,Rect.Bottom-rect.Top);
  end;
  if (StringGrid1.TopRow > 2) or (StringGrid1.LeftCol > 2) then
    Panel1.Visible := False
  else
    Panel1.Visible := True;
end;

Answer 14

这样可以，但闪得厉害，一个panel放到上面都可以看得到闪动。如果放很多panel时，估计会不行。

Answer 15

建议你试一下richview，它可以完成你的功能，不要在一个stringgrid上浪费功夫了

Answer 16

说说为什么要在上面放PANEL吧,可能会有更好的其它办法来避免你这种实现方式。