键盘事件 – 梁笔记

键盘事件

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{

if( Shift.Contains(ssShift) ) // 如果按下了Shift键则在第一个面板上显示Shift

StatusBar1->Panels->Items[0]->Text = "Shift";

if( Shift.Contains(ssAlt)) // 如果按下了Alt键则在第二个面板上显示Alt

StatusBar1->Panels->Items[1]->Text = "Alt";

if( Shift.Contains(ssCtrl) ) // 如果按下了Ctrl键则在第三个面板上显示Ctrl

StatusBar1->Panels->Items[2]->Text = "Ctrl";

if( Shift.Contains(ssAlt)&&(Shift.Contains(ssCtrl))) // 如果同时按下了Alt+Ctrl键则在第二个面板上显示Alt+Ctrl

StatusBar1->Panels->Items[5]->Text = "Alt+Ctrl";

}

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

void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,

TShiftState Shift)

{

// 在Shift、Alt和Ctrl键弹起时清除状态栏中相应面板上的内容

if( !(Shift.Contains(ssShift)) )

StatusBar1->Panels->Items[0]->Text = "";

if( !(Shift.Contains(ssAlt)) )

StatusBar1->Panels->Items[1]->Text = "";

if( !(Shift.Contains(ssCtrl)) )

StatusBar1->Panels->Items[2]->Text = "";

if( !Shift.Contains(ssAlt)&&(!Shift.Contains(ssCtrl)))

StatusBar1->Panels->Items[5]->Text = "";

}

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

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{

if( Shift.Contains(ssLeft) ) // 如果按下了左键则在第四个面板上显示left

StatusBar1->Panels->Items[3]->Text = "Left";

if( Shift.Contains(ssMiddle) ) // 如果按下了中键则在第五个面板上显示Middle

StatusBar1->Panels->Items[4]->Text = "Middle";

if( Shift.Contains(ssDouble) ) // 如果是双击则在第六个面板上显示Double

StatusBar1->Panels->Items[5]->Text = "Double";

}

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

void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{

// 在鼠标按键弹起时清除状态栏中相应面板上的内容

if( !(Shift.Contains(ssLeft)) )

StatusBar1->Panels->Items[3]->Text = "";

if( !(Shift.Contains(ssMiddle)) )

StatusBar1->Panels->Items[4]->Text = "";

if( !(Shift.Contains(ssDouble)) )

StatusBar1->Panels->Items[5]->Text = "";

}

如何使用OnIdle事件
OnIdle应返回0以表明不需要更多的空闲处理时间。当消息队列为空时，OnIdle每被调用一次lCount参数就增加，而每处理一条新消息lCount就被复位为0。你可以根据这个计数值调用不同的空闲处理例程。...
怎样在C++Builder中创建使用DLL
DLL(Dynamic Link Library)文件为动态链接库文件，又称“应用程序拓展”，是软件文件类型。在Windows中，许多应用程序并不是一个完整的可执行文件，它们被分割成一些相对独立的动态链接库，即DLL文件，放置于系统中。当我们执行某一个程序时，相应的DLL文件就会被调用。一个应用程序可使用多个DLL文件，一个DLL文件也可能被不同的应用程序使用，这样的DLL文件被称为共享DLL文件。这篇将介绍C++builder如何制作dll....
UDP
使用UDP时，直接使用API代替控件。第一个程序(ReadBufferUdp)使用来接收到缓存中。...
怎样获取程序的命令行参数？
你可以用下面的两种不同的技巧来解决这个问题。技巧1：首先，也许是最简单的方法是调用VCL ParaStr()函数。你可使用ParamCount()函数来确定到底有多少个命令行参数传递给了应用程序。...
如何监视剪贴板
剪贴板（ClipBoard）是内存中的一块区域，是Windows内置的一个非常有用的工具，通过小小的剪贴板，架起了一座彩桥，使得在各种应用程序之间，传递和共享信息成为可能。然而美中不足的是，剪贴板只能保留一份数据，每当新的数据传入，旧的便会被覆盖。...
Borland C++ Builder VCL的文件操作函数
用来操作处理文件的函数，C++Builder将其进行再次封装，更方便使用。...
TFORM窗体运用实例
一、让窗口总是在最前面二、动态调用窗体Form 三、遍历窗体控件的方法四、不规则窗口五、MDI Form ...
Windows95/98下怎样隐藏应用程序不让它出现在CTRL-ALT-DEL对话框中
把你的应用程序从CTRL-ALT-DEL对话框中隐藏的一个简单办法是去应用程序的标题。如果一个程序的主窗口没以标题，Windows95不把它放到CTRL-ALT-DEL对话框中。清除标题属性的最好地方是在WinMain函数里。...
C++Building制作闹钟
序号组件类型组件名称功能 1 Tlabel l_Clock_1 显示“输入日期” 2 TdateTimePicker dtp_Clock_1 选择日期 3 Tlabel l_Clock_2 显示“输入时间” 4 TdateTimePacker tdp_Clock_2 选择时间...
程序启动时运行
程序启动时运行...

相关文章: