哪位有XE3的试一下谢谢！！！

2013-08-26 11:48:19 137 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Navicat连接Oracle提示ORA-12514:TNS:监听程序当前无法识别连接描述符中的请求服务 ORA-12514我的解决方案今天打开以前一个电脑项目，Navicat中一个始终无法创建自己的连接，并且提示 ORA-12514:TNS:监听程序当前无法识别连接描述符中的请求服务一般这种提示都是未启动电脑的OracleService服务，进行以下操作。操作一: 按住win+r打开运行，输入cmd打开命令行窗口在窗口输入以下代码回车，启动OracleService net start ... 阅读详情

__fastcall TForm1::TForm1(TComponent* Owner)

	: TForm(Owner)

{

		Panel1->WindowProc = NewProc ;//Panel1 是一个TPanel

}

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

void __fastcall TForm1::NewProc(TMessage &Message)

{

	if (Message.Msg == CM_MOUSELEAVE)

	{

		Panel1->Caption = "鼠标离开";

	}

	else if (Message.Msg == CM_MOUSEENTER)

	{

		Panel1->Caption = "鼠标进入";

	}

	Panel1->Dispatch(&Message) ;

}

以上代码在CB6里完全正常可是换到XE3里无法拦截这两个消息，请问是什么问题呢？

...全文

ARM64汇编03 - PC寄存器本文主要讨论 pc 寄存器的一些行为。我们使用前文编译的 arm32 程序来做实验，由于 arm64 里面已经没有了mov pc r0这样的指令，无法直接对 pc 寄存器进行读写操作，所以只能采用 arm32 来演示。阅读详情

wangcftxz

C++ Builder 13,871 成员 102,696 内容

+ 关注 + 加入社区

切换为时间正序

ccrun.com 2013-08-26

打赏
举报

.h文件

private:	// User declarations
	TWndMethod FPanelWndProc;
	void __fastcall NewProc(TMessage &Message);

.cpp文件

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	FPanelWndProc = Panel1->WindowProc;

	Panel1->WindowProc = NewProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewProc(TMessage &Message)
{
	FPanelWndProc(Message);

	if (Message.Msg == CM_MOUSELEAVE)
	{
		Panel1->Caption = "鼠标离开";
	}
	else if (Message.Msg == CM_MOUSEENTER)
	{
		Panel1->Caption = "鼠标进入";
	}
}

wangcftxz 2013-08-26

打赏
举报

沙发自己坐坐等楼下速速快来

ccrun.com 2013-08-26

打赏
举报

引用 6 楼 wangcftxz 的回复:

XE3确实有这两个事件不过我是想知道为什么我的代码在CB6里能拦截这两个消息而在XE3里又不可以

需要先让Panel自己处理一下消息，然后再拦截。

wangcftxz 2013-08-26

打赏
举报

引用 4 楼 start8588 的回复:

XE4 的 TPanel 裡已有 OnMouseLeave 與 OnMouseEnter...不確定 XE3 是否也有呢?

这位大哥不好意思没有给分不知道是不是结贴的时候没有看到你的回复 XE3确实有这两个事件不过我是想知道为什么我的代码在CB6里能拦截这两个消息而在XE3里又不可以

星際訪客 2013-08-26

打赏
举报

void __fastcall TForm1::Panel1MouseLeave(TObject *Sender)
{
	Panel1->Caption = "鼠標離開";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1MouseEnter(TObject *Sender)
{
	Panel1->Caption = "鼠標進入";
}

星際訪客 2013-08-26

打赏
举报

XE4 的 TPanel 裡已有 OnMouseLeave 與 OnMouseEnter...不確定 XE3 是否也有呢?

wangcftxz 2013-08-26

打赏
举报

妖哥回复一如既往的及时

请问妖哥能详细讲一下原因么？

哪位有XE3的试一下 谢谢！！！

相关推荐

哪位有XE3的试一下谢谢！！！