社区
C++ Builder
帖子详情
鼠标离开窗体时……
hubao
2002-10-18 05:44:55
屏幕上有多个FORM ,当鼠标离开窗体时能够自动隐藏。要怎么做啊 ?
...全文
50
5
打赏
收藏
鼠标离开窗体时……
屏幕上有多个FORM ,当鼠标离开窗体时能够自动隐藏。要怎么做啊 ?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hubao
2002-10-18
打赏
举报
回复
不能有按扭啊
hubao
2002-10-18
打赏
举报
回复
只出来in
zbc
2002-10-18
打赏
举报
回复
第二种是处理Screen的事件
Screen->OnActiveFormChange = ChangeForm;
上面的意思是调用你自己所定义的函数,我现在代码写的有一点乱,你看看行不?
.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall FormPaint(TObject *Sender);
private: // User declarations
public: // User declarations
void __fastcall ChangeForm(TObject *Sender);
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ChangeForm(TObject *Sender)
{
this->Hide();
Screen->ActiveForm->Caption = "这是被激活的窗体";
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TForm2 *Form2 = new TForm2(Application);
Form2->ShowModal();
delete Form2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Screen->OnActiveFormChange = ChangeForm;
}
//---------------------------------------------------------------------------
zbc
2002-10-18
打赏
举报
回复
给你两种实现方法,这是第一种,第二种等一下:)
.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
virtual void __fastcall WndProc(TMessage &message);
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage &message)
{
if(message.Msg == CM_MOUSEENTER)
Caption = "in";
if (message.Msg == CM_MOUSELEAVE)
Caption = "out";
TForm::WndProc(message);
}
everandforever
2002-10-18
打赏
举报
回复
调用 _TrackMouseEvent() 函数以获得 WM_MOUSELEAVE 消息.
响应这个消息就可以了.
Delphi 光标跟随 (
鼠标
提示效果)代码
Delphi 光标跟随 (
鼠标
提示效果)代码 Delphi简单模拟所谓‘光标跟随’效果。程序包括以下实现细节:激活提示
窗体
,重新引入API函数以便Active_Hint()调用、Hint
窗体
要显示的提示文字、隐藏自己并转发消息给下面控件、
鼠标
离开
通知、
窗体
过程回调函数、(合适位置)显示
窗体
、是否超出屏幕宽度、HintWindow
窗体
句柄、HintWindow
窗体
句柄、开启或关闭光标跟随定
时
器…………
窗体
上绘制
鼠标
坐标 实现
最近看到很多帖子是关于
窗体
绘制
鼠标
坐标的问题,于是自己闲来无聊加上心血来潮,就写了一个基于对话框的
鼠标
坐标显示 开始吧一、定义成员变量:m_strpt :显示的坐标字串 m_point :
鼠标
坐标位置 m_Rect :要绘制的区域 二、OnMouseMove获取
鼠标
坐标
鼠标
坐标的获取当然在OnMouseMove消息函数里是一个比较简便的方式,一般不要求很精确
Python Tkinter
窗体
讲解
Python作为自立门户的语言,除了学习它的基础编程之外,它还提供了
窗体
的学习,这样相对来说,它就完整了,如果大家学习过C#
窗体
实现或者Java,MFC等等吧,再学习它就会简单的多。当然大家也不用担心,即使没学过,在学习了该教程提供的Python的Tkinter
窗体
后,也会让你快速的掌握。这样我们就可以使用Python做一些小游戏,或者做一些小系统。
鼠标
离开
事件集
1.文本框焦点问题 onBlur:当失去输入焦点后产生该事件 onFocus:当输入获得焦点后,产生该文件 Onchange:当文字值改变
时
,产生该事件 Onselect:当文字加亮后,产生该文件 (value=='') {value='郭强'}">点击
时
文字消失,失去焦点
时
文字再出现 2.网页按钮的特殊颜色
QQ
窗体
自动隐藏效果探究
腾讯QQ是当前流行的网络聊天工具之一,由于它在应用设计上有很多独特之处,所以也吸引了很多程序员对之进行研究和模仿。在这里,我将利用Delphi对QQ的
窗体
自动隐藏效果提出自己的实现方法。一、问题的提出熟悉QQ使用的朋友都知道,当QQ
窗体
区域超出屏幕四边
时
,
窗体
就会自动“消失”,只留下
窗体
一边的小部分显露在桌面上。当用
鼠标
移动到显露部分之上,
窗体
就会在隐藏位置重新完整显示;但当
鼠标
离开
窗体
区域后,窗
C++ Builder
13,824
社区成员
102,679
社区内容
发帖
与我相关
我的任务
C++ Builder
C++ Builder相关内容讨论区
复制链接
扫一扫
分享
社区描述
C++ Builder相关内容讨论区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章