求救啊，DBGrid闪烁的问题！

wg961423 2009-06-03 01:50:34
目的：鼠标在DBGrid上移动，不点击鼠标，把鼠标所在的地方的那条记录的某个值(没有在表格中显示出来，但DataSet中有)用Hint的方式显示出来。

Unit1.h


private:	// User declarations

	int OLDX,OLDY;

	THintWindow *fmHint;


Unit1.cpp


__fastcall TForm1::TForm1(TComponent* Owner)

	: TForm(Owner)

{

 Application->CreateForm(HintWindowClass,&fmHint);

 Form1->DoubleBuffered=true;

 DBG->DoubleBuffered=true;

 DBGrid1->DoubleBuffered=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::DBGrid1MouseMove(TObject *Sender, TShiftState Shift,

      int X, int Y)

{

 AnsiString Str;

 TGridCoord p=DBGrid1->MouseCoord(X,Y);

 Str="X="+IntToStr(p.X)+" Y="+IntToStr(p.Y);

 if(p.X>0&&p.Y>0)

   {

	if(OLDX!=p.X||OLDY!=p.Y)

	  {

	   class TMyGrid:public TCustomDBGrid

		 {

		  public:

		  __property DataLink;

		 };

	   TMyGrid *MyGrid=(TMyGrid*)DBGrid1;

	   MyGrid->DataSource->DataSet->DisableControls();

	   int i=MyGrid->DataLink->ActiveRecord;

	   TBookmark BM;

	   BM=DBG->DataSource->DataSet->GetBookmark();

	   MyGrid->DataSource->DataSet->MoveBy(OLDY-i-1);

	   Str+="\n"+MyGrid->DataSource->DataSet->FieldByName("OrderID")->AsString;

	   if(MyGrid->DataSource->DataSet->FieldByName("Brand")->AsString!="")

		 Str+="\n"+MyGrid->DataSource->DataSet->FieldByName("Brand")->AsString;

	   if(MyGrid->DataSource->DataSet->FieldByName("Note")->AsString!="")

		 Str+="\n"+MyGrid->DataSource->DataSet->FieldByName("Note")->AsString;

	   MyGrid->DataLink->ActiveRecord=i;

	   MyGrid->DataSource->DataSet->GotoBookmark(BM);

	   MyGrid->DataSource->DataSet->FreeBookmark(BM);

	   MyGrid->DataSource->DataSet->EnableControls();

	   TRect R = fmHint->CalcHintRect(1000,Str,NULL);

	   TPoint P = Mouse->CursorPos;

	   OffsetRect(R,P.x,P.y);

	   fmHint->ActivateHint(R,Str);

	  }

	OLDX=p.X;

	OLDY=p.Y;

   }

 else

   {

	OLDX=p.X;

	OLDY=p.Y;

	fmHint->ReleaseHandle();

   }

}

//---------------------------------------------------------------------------


用这个代码可以达到目的，但鼠标在DBGrid上移动的时候，DBGrid会不断的闪烁，请问各位大大，有没有什么好的解决方法？
系统为2003或XP， 在Vista下不闪。
...全文
265 19 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
mypop2006 2009-06-24
  • 打赏
  • 举报
 回复
我模糊记得在delphi里闪烁可以打开什么双缓存的 不知道bcb理有没有
wg961423 2009-06-05
  • 打赏
  • 举报
 回复
奇怪，这个方法在用鼠标滚动（DataSet会动）的时候，有时候会出现定位不准的问题，但又不是每次都出现，不过出现问题后，只要在DBGrid上点一下重新设定一下DataSet就又可以了。
wenyongjie 2009-06-05
  • 打赏
  • 举报
 回复
帮顶不要分
jaffy 2009-06-05
  • 打赏
  • 举报
 回复
DBGRID闪烁是刷新的问题吧。
draculamx 2009-06-04
  • 打赏
  • 举报
 回复 




class TMyGrid:public TCustomDBGrid  //放到头文件去

{

    public:

    __property DataLink;

};



TMyGrid *MyGrid=(TMyGrid*)DBGrid1;  //在头文件中，把 MyGrid 作为 TForm1 的一个类成员，然后把这行代码放在 TForm1 的 Create 事件中



//MouseMove 事件触发的频率很高（鼠标移动时），你每次触发这个事件，都要定义一个类，并且生成它的一个对象（并且这个对象比较复杂），每次事件结束时还要析构，这样效率会非常低下，还不如把这个类生成的对象作为一个全局变量比较快
wg961423 2009-06-04
  • 打赏
  • 举报
 回复
对了，忘记说了，经过试验，闪是因为下面的语句造成的：

MyGrid->DataSource->DataSet->DisableControls();
MyGrid->DataLink->ActiveRecord=i;
MyGrid->DataSource->DataSet->EnableControls();

不知道其他的同志们有没有什么好的方法？
wg961423 2009-06-04
  • 打赏
  • 举报
 回复
找了一个笨方法，就是再建一个DataSet，和DBGrid的内容一样，鼠标移动时，不动DBGrid的DataSet，而是去动新的DataSet，如下：





void __fastcall TForm1::DBGMouseMove(TObject *Sender, TShiftState Shift, int X,

	  int Y)

{

 if(VT1->RecordCount<1)

   {

	VT->SaveToStream(ms,true);

	VT1->LoadFromStream(ms,true);;

   }

 TGridCoord p=DBG->MouseCoord(X,Y);

 if(p.X>0&&p.Y>0)

   {

	if(OLDX!=p.X||OLDY!=p.Y)

	  {

	   HintStr="X="+IntToStr(p.X)+" Y="+IntToStr(p.Y);

	   int i=MyGrid->DataLink->ActiveRecord;

	   TLocateOptions Opts;

	   Opts.Clear();

	   Opts << loCaseInsensitive;

	   VT1->Locate("ID",VT->FieldByName("ID")->AsString,Opts);

	   int a;

	   a=OLDY-p.Y;

	   VT1->MoveBy(OLDY-i-1-a);

	   HintStr+="\n"+MyGrid->DataSource->DataSet->FieldByName("OrderID")->AsString;

	   if(VT1->FieldByName("Brand")->AsString!="")

		 HintStr+="\n"+VT1->FieldByName("Brand")->AsString;

	   if(VT1->FieldByName("OrderConTentNote")->AsString!="")

		 HintStr+="\n"+VT1->FieldByName("OrderConTentNote")->AsString;

	   TRect R = fmHint->CalcHintRect(1000,HintStr,NULL);

	   TPoint P = Mouse->CursorPos;

	   OffsetRect(R,P.x,P.y);

	   fmHint->ActivateHint(R,HintStr);

	  }

	OLDX=p.X;

	OLDY=p.Y;

   }

 else

   {

	OLDX=p.X;

	OLDY=p.Y;

	fmHint->ReleaseHandle();

   }

}

//---------------------------------------------------------------------------

void __fastcall TForm1::DBGMouseLeave(TObject *Sender)

{

 fmHint->ReleaseHandle();

 VT1->Clear();

 OLDX=-1;

 OLDY=-1;

}

//---------------------------------------------------------------------------


不知道还有没有其他的方法啊！
queshiybb 2009-06-04
  • 打赏
  • 举报
 回复
好贴，学习下
wg961423 2009-06-04
  • 打赏
  • 举报
 回复
[Quote=引用 10 楼 draculamx 的回复:]
C/C++ code

class TMyGrid:public TCustomDBGrid //放到头文件去
{
public:
__property DataLink;
};

TMyGrid *MyGrid=(TMyGrid*)DBGrid1; //在头文件中，把 MyGrid 作为 TForm1 的一个类成员，然后把这行代码放在 TForm1 的 Create 事件中

//MouseMove 事件触发的频率很高（鼠标移动时），你每次触发这个事件，都要定义一个类，并且生成它的一个对象（并且这个对象比较复杂），
每次事件结束时还要析构，…
[/Quote]

试过了，还是闪。
看了一下，当鼠标动的快的时候，闪的很厉害，慢点就好点！
wg961423 2009-06-04
  • 打赏
  • 举报
 回复
[Quote=引用 9 楼 ccrun 的回复:]
我试了试代码，没有发现闪烁？Vista + C++Builder6

不过我看代码中，关于TMyGrid的定义，最好放到DBGrid1MouseMove函数体的外面。
[/Quote]

我的原始的代码，在Vista下是正常的，不闪，但在XP或2003下就闪了。
ccrun.com 2009-06-03
  • 打赏
  • 举报
 回复
我试了试代码，没有发现闪烁？Vista + C++Builder6

不过我看代码中，关于TMyGrid的定义，最好放到DBGrid1MouseMove函数体的外面。
wg961423 2009-06-03
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 rouqing 的回复:]
Application->ProcessMessages();

没找了，就她了。加到你的Show Hint 事件里吧。
[/Quote]

似乎也不管用啊！
yangangs 2009-06-03
  • 打赏
  • 举报
 回复
没见过，关注
纯冰糖 2009-06-03
  • 打赏
  • 举报
 回复
Application->ProcessMessages();

没找了，就她了。加到你的Show Hint 事件里吧。
wg961423 2009-06-03
  • 打赏
  • 举报
 回复
不用考虑Vista（我是在Vista下开发的），只要在XP或2003上不闪就行，但现在在XP下还是在闪啊！

继续救命啊！

纯冰糖 2009-06-03
  • 打赏
  • 举报
 回复
那就有点特殊了，Vista下我还没做过开发，帮你顶吧。
不过一般的方法这样就可以了。
try
{
LockWindowUpdate(DBGrid->Handle);
....// Your Hint Function
}
__finally
{
LockWindowUpdate(NULL);
}

就是这样啦
总不至于考虑着放到线程里去处理吧。
帮顶，没想法了。
wg961423 2009-06-03
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 rouqing 的回复:]
LockWindowUpdate(DBGrid->Handle);
....// Your Hint Function
LockWindowUpdate(NULL);
[/Quote]

比之前的好了一点了，但还是在闪啊，而且本来在Vista下不闪的，现在也有点闪了。

纯冰糖 2009-06-03
  • 打赏
  • 举报
 回复
LockWindowUpdate(DBGrid->Handle);
....// Your Hint Function
LockWindowUpdate(NULL);
600个问与答
http://faq.xunweb.org/itfaq/mfcbasic/ 怎样彻底结束一个线程?(2006-06-04) v怎么样以纯idispatch方式而不是引入类型库的方法调...
2013年春季省开课程网络形考“经营管理实务”第三次作业.doc
2013年春季省开课程网络形考“经营管理实务”第三次作业.doc
【数据科学工具】Anaconda下载安装与配置教程：涵盖系统要求、安装步骤及环境配置
内容概要：本文详细介绍了Anaconda的下载、安装与配置方法（2025最新版）。Anaconda是一个开源的Python/R数据科学集成开发平台，预装了1500多个科学计算库，并提供conda包管理和环境管理功能。文章首先列出了系统要求，接着分别讲述了适用于不同操作系统的下载方式，包括官方下载和国内镜像下载。然后，具体讲解了Windows、macOS和Linux三种操作系统的安装步骤，以及环境变量的手动配置方法。此外，还提供了验证安装是否成功的命令和配置国内镜像源的方法，以提高下载速度。最后，列出了一些常用conda命令和常见问题的解决方案。 适合人群：从事数据科学、机器学习领域的研究人员和开发者，特别是需要频繁使用Python科学计算库的用户。 使用场景及目标：①帮助用户快速搭建Python开发环境，尤其是需要多个Python版本共存或隔离环境的情况下；②解决因网络原因导致的下载速度慢的问题；③提供详细的安装指南，确保安装过程顺利进行；④指导用户正确配置环境变量，避免常见的安装后无法使用的错误。 阅读建议：由于Anaconda涉及多平台安装和配置，建议读者根据自己的操作系统选择相应的章节重点阅读，并严格按照步骤操作。对于初次使用者，建议先从简单的安装入手，再逐步学习环境管理和包管理的相关命令。
综合布线设计内容.doc
综合布线设计内容.doc
成功的项目管理.docx
成功的项目管理.docx
数据库及相关技术

1,178

社区成员

18,939

社区内容

发帖
与我相关
我的任务
社区描述
C++ Builder 数据库及相关技术
社区管理员
  • 数据库及相关技术社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章