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

[人鱼传说]

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时就会看得到位置变动时的闪动。
求高手帮我解决。。。。非常感谢。

[bdmh]

你看到的是效果，但不一定是你这么干的（肯定不是）

[人鱼传说]

没人了吗？

[bdmh]

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

[lqfcu2]

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

[人鱼传说]

我已被这个问题搞疯了，哪位高手知道怎么弄的话，贴出代码？OK？？？？？

[人鱼传说]

[Quote=引用 2 楼 lqfcu2 的回复:]

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

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

[bdmh]

你就把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;

[gobiz]

试试这段代码吧，看看是否满足你的要求！

unit Unit1;

interface

uses
  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;

implementation

type
  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.

[kye_jufei]

把panel重置於stringgrid之上...

[人鱼传说]

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

[bdmh]

[Quote=引用 8 楼 baronyang 的回复:]
回楼上的朋友，你的方法，在StringGrid1TopLeftChanged事件里控制滚动条滚动后，有出现有一个问题：“panel是滚动到第0行才会看不到”，而我要的是滚动到第一行(title那一行)就要看不到。。
因为第0行和第0列是做为title的，不能因为panel的滚动而被它覆盖。。。。
[/Quote]
如果你的panel可以有固定的区域，那你就在drawcell绑定吧，那个应该是最好的方法了

[gobiz]

[Quote=引用 8 楼 baronyang 的回复:]

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

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

[人鱼传说]

[Quote=引用 5 楼 bdmh 的回复:]

你就把panele绑定到一个区域把
Delphi(Pascal) code

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
//根据行列限制panel的大小，可以改为一个区域的
if (ACo……
[/Quote]


效果一样的。。。

[bdmh]

[Quote=引用 11 楼 baronyang 的回复:]
引用 5 楼 bdmh 的回复:

你就把panele绑定到一个区域把
Delphi(Pascal) code

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
//根据行列限制panel的大小，……
[/Quote]
胡说，绝对不一样

[无条件为你]

不知道楼主实现这样的效果用意何在？或许有另外的解决办法，只是不明白楼主的用意。

[喝口水]

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

[ZyxIp]

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

[人鱼传说]

这么多天了。。。还是没解决。。。。

[bdmh]

有这功夫，早就可以重新规划了

[zhaohuateng]

敢问楼主，你的屏幕录像用的是什么软件？