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

人鱼传说 2010-11-18 09:44:20

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

...全文

439 31 打赏收藏举报

写回复

用AI写文章

31 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhaohuateng 2010-11-24

打赏
举报

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

bdmh 2010-11-23

打赏
举报

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

人鱼传说 2010-11-23

打赏
举报

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

ZyxIp 2010-11-23

打赏
举报

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

喝口水 2010-11-23

打赏
举报

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

无条件为你 2010-11-23

打赏
举报

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

bdmh 2010-11-18

打赏
举报

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

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

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

人鱼传说 2010-11-18

打赏
举报

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

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

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

效果一样的。。。

gobiz 2010-11-18

打赏
举报

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

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

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

bdmh 2010-11-18

打赏
举报

人鱼传说 2010-11-18

打赏
举报

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

kye_jufei 2010-11-18

打赏
举报

把panel重置於stringgrid之上...

gobiz 2010-11-18

打赏
举报

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

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.

bdmh 2010-11-18

打赏
举报

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

人鱼传说 2010-11-18

打赏
举报

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

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

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

人鱼传说 2010-11-18