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

Delphi > VCL组件开发及应用
收藏 回复
[问题点数：200分，结帖人baronyang]
更多帖子
私信 空间 博客
版主
人鱼传说
等级
本版专家分：1585
结帖率 99%
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
等级
本版专家分：132207
勋章
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
名人 2019年 荣获名人称号
2013年 荣获名人称号
Blank
状元 2012年 总版技术专家分年内排行榜第一
Blank
进士 2013年 总版技术专家分年内排行榜第七
2011年 总版技术专家分年内排行榜第五
2009年 总版技术专家分年内排行榜第九
是在不知道你的用意何在，你可以在drawcell事件中将panel绑定到一个区域
只看TA 引用 举报 #1得分 0
更多帖子
私信 空间 博客
lqfcu2
等级
本版专家分：1357
为什么要在上面弄panel呢。看你那个GIF图片，明显是panel被覆盖后没有重绘造成的
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
版主
人鱼传说
等级
本版专家分：1585
我已被这个问题搞疯了，哪位高手知道怎么弄的话，贴出代码？OK？？？？？
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
版主
人鱼传说
等级
本版专家分：1585
引用 2 楼 lqfcu2 的回复:
为什么要在上面弄panel呢。看你那个GIF图片，明显是panel被覆盖后没有重绘造成的


如果我用mypanel.repaint，就会使mypanel.top和left乱掉，于是我在StringGrid1TopLeftChanged事件里控制滚动条滚动后mypanel的.top和left时，stringgrid上只有一两个panel时，效果还免强可以，但panel很多时，panel在改变top和left时就会看得到位置变动时的闪动。
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
版主
bdmh
等级
本版专家分：132207
勋章
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
名人 2019年 荣获名人称号
2013年 荣获名人称号
Blank
状元 2012年 总版技术专家分年内排行榜第一
Blank
进士 2013年 总版技术专家分年内排行榜第七
2011年 总版技术专家分年内排行榜第五
2009年 总版技术专家分年内排行榜第九
你就把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;
只看TA 引用 举报 #5得分 20
更多帖子
私信 空间 博客
gobiz
等级
本版专家分：9081
试试这段代码吧，看看是否满足你的要求！


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.

只看TA 引用 举报 #6得分 50
更多帖子
私信 空间 博客
kye_jufei
等级
本版专家分：36204
勋章
Blank
红花 2010年9月 Delphi大版内专家分月排行榜第一
2010年8月 Delphi大版内专家分月排行榜第一
Blank
黄花 2011年2月 Delphi大版内专家分月排行榜第二
2011年1月 Delphi大版内专家分月排行榜第二
2010年12月 Delphi大版内专家分月排行榜第二
2010年11月 Delphi大版内专家分月排行榜第二
2010年10月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2011年3月 Delphi大版内专家分月排行榜第三
2010年7月 Delphi大版内专家分月排行榜第三
把panel重置於stringgrid之上...
只看TA 引用 举报 #7得分 0
更多帖子
私信 空间 博客
版主
人鱼传说
等级
本版专家分：1585
回楼上的朋友，你的方法，在StringGrid1TopLeftChanged事件里控制滚动条滚动后，有出现有一个问题：“panel是滚动到第0行才会看不到”，而我要的是滚动到第一行(title那一行)就要看不到。。
因为第0行和第0列是做为title的，不能因为panel的滚动而被它覆盖。。。。
只看TA 引用 举报 #8得分 0
更多帖子
私信 空间 博客
版主
bdmh
等级
本版专家分：132207
勋章
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
名人 2019年 荣获名人称号
2013年 荣获名人称号
Blank
状元 2012年 总版技术专家分年内排行榜第一
Blank
进士 2013年 总版技术专家分年内排行榜第七
2011年 总版技术专家分年内排行榜第五
2009年 总版技术专家分年内排行榜第九
引用 8 楼 baronyang 的回复:
回楼上的朋友，你的方法，在StringGrid1TopLeftChanged事件里控制滚动条滚动后，有出现有一个问题：“panel是滚动到第0行才会看不到”，而我要的是滚动到第一行(title那一行)就要看不到。。
因为第0行和第0列是做为title的，不能因为panel的滚动而被它覆盖。。。。

如果你的panel可以有固定的区域，那你就在drawcell绑定吧，那个应该是最好的方法了
只看TA 引用 举报 #9得分 0
更多帖子
私信 空间 博客
gobiz
等级
本版专家分：9081
引用 8 楼 baronyang 的回复:
回楼上的朋友，你的方法，在StringGrid1TopLeftChanged事件里控制滚动条滚动后，有出现有一个问题：“panel是滚动到第0行才会看不到”，而我要的是滚动到第一行(title那一行)就要看不到。。
因为第0行和第0列是做为title的，不能因为panel的滚动而被它覆盖。。。。


如果可以使用DrawCell来绑定，就采用bdmh的方法，如果不能满足你的要求，就采用我的方法，最多就是再添加两个StringGrid作为标题栏和边栏就可以了，处理一下TopLeftChange的事件，让这两个假的标题栏和边栏同步滚动，直接就可以满足你的要求了。
只看TA 引用 举报 #10得分 0
1 2 3 4
收起
收藏 回复
人鱼传说

等级：

关注 私信 TA的帖子
当前最全的TAdvStringGrid控件属性事件介绍和使用方法(AdvStringGrid使用技巧/Cells)

当前最全的TAdvStringGrid控件属性事件介绍和使用方法(AdvStringGrid使用技巧/Cells) --- 作者：TTT 日期：20090306 ---  　TAdvStringGrid是Delphi编程中常用的控件，经常用于统计数据和设计比较复杂的表格。...

StringGrid表格设置

1、单元格设置procedure TForm1.strgrd1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);...begin //StringGrid表格的居中显示 with TStringGrid(Sender) do 

stringgrid 新建edit问题

093_《Delphi6实用开发指南》

Delphi 6．0是Borland公司最新推出的新一代可视化开发工具，它具有功能强大、简便易用和代码执行速度快等优点。业界人士一致认为：真正的程序员用C，聪明的程序员用DELPHI。 全书分为18章，内容包括：Delphi概述、...

1.Delphi快速入门

它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编辑器、最为领先的数据库技术。对于广大的程序开发...

C++Builder使用经验谈(上)

因为以往在Windows下，没有一种真正基于C语言的可视化编程语言。你如果想用VB或Delphi这一类可视化编程语言去编程，你就不得不去重温一遍Basic或Pascal语言，没有了像C语言一样可以灵活应用的指针，没有了...

Delphi的可视化部件用法简介

发现这篇文章很有用，可以起到鸟瞰的作用，所以...下面，我们将对各种部件分类进行简单的介绍，以便于您在编程时能够较快地了解有哪些部件可能会满足您的要求，并对其重要的方法、属性等有一个大致的了解。 　基本技巧

delphi 注册表操作(读取、添加、删除、修改)完全手册

32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。  　一、创建和释放TRegistry对象  　1....为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create；...　2....

大白鲨经验集 (转)

大白鲨经验集 (转)[@more@]大家新年好！！学的越来越多，钱/前途无量！！我的经验并非是好的，大家既然来到这里就是志同道合，互相学习。所以也希望您把你的经验共享出来，以某某人的经验集为标题，方便朋友查找。...

C++Builder使用经验谈

C++Builder3.0是Borland公司（现...因为以往在Windows下，没有一种真正基于C语言的可视化编程语言。你如果想用VB或Delphi这一类可视化编程语言去编程，你就不得不去重温一遍Basic或Pascal语言，没有了像C语言一样可以灵

C++Builder使用经验谈 (转)

C++Builder使用经验谈 C++Builder3.0是Borland公司（现已更名...因为以往在Windows下，没有一种真正基于C语言的可视化编程语言。你如果想用VB或Delphi这一类可视化编程语言去编程，你就不得不去重温一遍Basic或Pa...

C++Builder使用经验谈 (转)

C++Builder使用经验谈 C++Builder3.0是Borland公司（现已更名为...因为以往在Windows下，没有一种真正基于C语言的可视化编程语言。你如果想用VB或Delphi这一类可视化编程语言去编程，你就不得不去重温一遍Basic或Pas

Delphi下的原生ADO使用方法

本文向您揭示在Delphi中使用ADO是如何轻而易举，结合了ADO的Delphi应用程序，将不再依赖于BDE。 ADO的精髓在于利用简单的COM指令来快速方便的访问ODBC数据源，微软的表格、列表框等ActiveX控件使得用户可以简便...

delphi 开发经验技巧宝典源码

0133　使用Frame3D过程在画布上创建3D效果　87 4.9　文件操作的相关函数　87 0134　使用CopyFile函数复制文件　87 0135　使用CreateDir函数创建一个目录　88 0136　使用FileCreate函数创建一个图形文件　88 0137　...

Delphi与Word之间的融合技术

问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] ...

DBGrid 各属性的设置

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变...

Dbgrid使用技巧(下)-

Dbgrid使用技巧(下)- - 二、建立项目，实现功能 1．新建一项目，并为表单添加相关控件，各控件主要属性如下表： 2．建立各Click的事件代码 Button1(打开表)的Click事件代码如下： procedure TForm1.Button1Click...

Dbgrid使用技巧(下)

Dbgrid使用技巧(下) 二、建立项目，实现功能 1．新建一项目，并为表单添加相关控件，各控件主要属性如下表： 2．建立各Click的事件代码 Button1(打开表)的Click事件代码如下： procedure TForm1.Button1Click...

Dbgrid使用技巧(下)

二、建立项目，实现功能 1．新建一项目，并为表单添加相关控件，各控件主要属性如下表： 2．建立各Click的事件代码 Button1(打开表)的Click事件代码如下： procedure TForm1.Button1Click(Sender: TObject);...

KeyLife富翁笔记

KeyLife富翁笔记 作者　: archonwang标题　: DBGrid 应用全书（全面修订正在进行时） 关键字: 分类　: 开发经验 密级　: 公开 (评分:★★★★ , 回复: 67, 阅读: 47181) »» 在 Delphi 语言的数据库编程中，...

DBGrid 应用全书

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变...

DBGrid 应用全书

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变...

DBGrid 应用全书

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变...

DBGrid 应用全书

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以...

DBGrid 各属性的设置

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们...

DBGrid 应用全书

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变...

DELPHI常用函数集及简要范例 3　

DBGrid 应用全书

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变...

dbgrid使用大全(delphi)

<!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto;...}

DBGridEh大全

查看完全版本：dbgrid应用全书论坛跳转到...╋名狐堂├名狐介绍├名狐讲座╋技术论坛├VFP 论坛├DELPHI├CGI、ASP、JAVA论坛├LINUX 论坛├dot NET论坛├其它语言C,C++,PB,VB╋专题技术├VFP + SQL Server├类的...

相关热词 c# 字典对象池 c#5.0 安装程序 c# 分页算法 c# 多层文件 c# 判断文件修改时间 c#自定义控件怎么引用 c# 开发流程图 c# 子类构造 c# 编写webapi c# in sql 参数