C++Builder的一些学习资料

阳光穿透心脏的1/2处 2021-09-14 03:24 462阅读 0赞

当然是转载的叻...  
1. C++ Builder 网上资源  
  
C++ Builder 研究  
http://www.ccrun.com/  
  
C++ Builder 程序员  
http://mybcb.diy.myrice.com/  
  
电脑学习 C++ Builder 版块  
http://www.itcomputer.com.cn/Programs/C/CB/  
  
c++ Builder 快捷键大全：  
http://www.itcomputer.com.cn/Programs/C/CB/200512/11211.html  
  
C++ Builder IDE 使用技巧：  
http://www.itcomputer.com.cn/Programs/C/CB/200512/11199.html  
  
\---------------------------------------------------------------------------  
  
2. C++ Builder 里的快捷键  
  
这里只是一个摘要式的说明，摘出了我认为比较有用也比较常用的，详情请参考：  
http://www.itcomputer.com.cn/Programs/C/CB/200512/11211.html  
说明：其中的区块操作快捷键要在选定某块之后才能起作用。  
  
名称作用备注  
系统：  
F3 查找下一个  
F5 设置/取消断点  
F7 跟踪（进入子程序）  
F8 单步（不进入子程序）  
F9 运行工程，包括了编译  
F11 切换到对象查看器  
F12 切换设计窗体和代码窗口很有用，特别是在窗口互相覆盖的时候  
Ctrl+F2 结束调试或运行  
Ctrl+F5 设置Watch变量  
Ctrl+F9 编译工程  
Alt+F9 编译单元  
  
代码自动完成类：  
Ctrl+J 代码模板很有用，尤其是对代码规范而言  
Ctrl+Space 代码补全很有用，可以省很多敲键盘和查错的时间  
这个因为跟 Windows  默认的中英文输入法切换快捷键冲突，所以需要作如下设置：  
1) 右键点击任务栏上的输入法图标，选择“设置”；  
2) 在跳出的窗口中点击“键设置”按钮；  
3) 在跳出的窗口中选中“中文（简体）输入法 \- 输入法/非输入法切换”，勾选“启用按键顺序”，然后点“确定”即可；  
  
编辑类：  
Ctrl+C 复制基本快捷键  
Ctrl+V 粘贴基本快捷键  
粘贴大段代码时请特别注意，很多问题来源于复制粘贴。  
Ctrl+X 剪切基本快捷键  
Ctrl+S 保存基本快捷键  
Ctrl+Home 跳到文件开头较有用  
Ctrl+End 跳到文件结尾较有用  
Ctrl+Left 跳到上一个字较有用  
Ctrl+Right 跳到下一个字较有用  
Ctrl+Up 鼠标位置不动，滚动条上移  
Ctrl+Down 鼠标位置不动，滚动条下移  
Ctrl+Y 删除一行较有用，减少无谓的空行，有助于代码规范  
Ctrl+Shift+Y 删除到行尾  
Ctrl+T 删除到字尾  
Ctrl+Shift+I 块增加一级缩进很有用，有助于代码规范  
Ctrl+Shift+U 块减少一级缩进很有用，有助于代码规范  
Ctrl+K+I 同 Ctrl+Shift+I  
Ctrl+K+U 同 Ctrl+Shift+U  
  
\---------------------------------------------------------------------------  
  
3. 编辑器选项设置  
  
主菜单里的“Tools” -> “Editor Options...” 或者在编辑器窗口右键点击，在弹出的菜单里选择“Properties”。  
  
\---------------------------------------------------------------------------  
  
4. 让 Form  不自动创建  
  
在主菜单里的“Project” -> “Options...” -> “Forms”中，将不想要其自动启动的 Form 从“Auto-created forms”移到“Available forms”即可。  
  
\---------------------------------------------------------------------------  
  
5. 关掉数据库的登录窗口  
  
将 TADOConnection  控件的 LoginPrompt 属性设为 false。  
  
\---------------------------------------------------------------------------  
  
6. 设置密码框  
  
将文本框的 PasswordChar  属性设为 \* (其他字符也行，除了 \#0 之外)。这里设为啥，输入密码时就显示啥。  
  
\---------------------------------------------------------------------------  
  
7. 登录窗口先于多文档(MDI)主窗口显示  
  
在项目源文件(Project Source)里先 new 一个登录窗口，登录成功再创建主窗口。如下所示：  
Application->Initialize();  
frmLogin = new TfrmLogin(Application);  
frmLogin->ShowModal();  
Application->CreateForm(\_\_classid(TfrmMain), &frmMain);  
Application->Run();  
  
剩下的事情就是在 TfrmLogin 的登录成功事件中 Close() 关闭登录窗口，登录失败事件中 Application->Terminate() 关闭主程序。  
  
\---------------------------------------------------------------------------  
  
8. 字符串下标  
  
AnsiString, String 的下标都是从一开始的，从 1 到 length()。  
  
\---------------------------------------------------------------------------  
  
9. 关于 TEdit  控件的复合赋值  
  
用 \+= 对 TEdit 控件的 Text 属性赋值无效。编译能通过，但赋不上值。  
  
\---------------------------------------------------------------------------  
  
10. OnKeyPress 与 OnKeyDown 的区别  
  
OnKeyPress是经过系统转换后的按键，根据ASCII码区分的，比方说你按了Shift+a，则相当于输入了A。这个函数相当于处理WM\_CHAR消息。  
  
OnKeyDown没有经过系统转换，是根据虚拟按键值来判断的，比方说你按下了Ctrl+F3，则相当于在控制字符方面输入了Control，并按下了VK\_F3这个虚拟键。这个函数相当于处理WM\_KEYDOWN消息。  
  
\---------------------------------------------------------------------------  
  
11. 让MDI程序不重复打开相同子窗口  
  
1) 先写一个 openForm 函数，作用是判断将要创建的子窗口是否已存在。若已存在，则显示之，并将鼠标焦点转移到该窗口，并返回 true；若不存在，则返回 false。  
  
bool \_\_fastcall TfrmMain::openForm(TForm \*frm)  
\{  
bool frmExist = false;  
  
// 判断该窗口是否已经被创建。  
if (frm == NULL)  
\{  
return false;  
\}  
for (int i = 0; i < Screen->FormCount; i++)  
\{  
if (Screen->Forms\[i\]->ClassType() == frm->ClassType())  
\{  
frmExist = true;  
break;  
\}  
\}  
if (false == frmExist)  
\{  
return false;  
\}  
  
// 如果此窗口已经被创建，则判断该窗口当前状态，  
// 如果其当前状态为最小化状态或隐藏状态，则显示之。  
if (wsMinimized == frm->WindowState)  
\{  
ShowWindow(frm->Handle, SW\_SHOWNORMAL);  
\}  
else  
\{  
ShowWindow(frm->Handle, SW\_SHOWNA);  
\}  
if (! frm->Visible)  
\{  
frm->Visible = true;  
\}  
  
// 将光标的焦点转移到此窗口上。  
frm->BringToFront();  
frm->SetFocus();  
  
return true;  
\}  
  
2) 在创建子窗口时，先调用该函数。若返回 false (即不存在)，则创建之。  
  
if (false == openForm(formName))  
\{  
formName = new formType(Application);  
\}  
  
\---------------------------------------------------------------------------  
  
12. ADOQuery 的使用  
  
★一个例子  
if (! ADOConnection1->Connected)  
\{  
ADOConnection1->Connected = true;  
\}  
ADOQuery1->Active = false;  
ADOQuery1->SQL->Clear();  
ADOQuery1->SQL->Add("SELECT \* FROM table\_name");  
ADOQuery1->Active = true;  
Edit1->Text = ADOQuery1->RecordCount;  
Edit2->Text = ADOQuery1->Fields->Fields\[1\]->AsString;  
ADOQuery1->Next();  
Edit3->Text = ADOQuery1->Fields->Fields\[1\]->AsString;  
  
★往数据集里添加纪录  
TADOQuery1->Edit();  
TADOQuery1->Append();  
  
★从数据集里删除纪录  
TADOQuery1->Edit();  
TADOQuery1->Delete();  
  
★保存修改到数据集  
TADOQuery1->Edit();  
TADOQuery1->Post();  
  
★取消对数据集的修改  
TADOQuery1->Edit();  
TADOQuery1->Cancel();  
TADOQuery1->Close();  
  
\---------------------------------------------------------------------------  
  
13. 关闭窗口事件  
  
OnClose 消息阶段的事件，控制关闭时执行什么动作。这里也可以控制不允许关闭窗口，方法是将 Action 参数设为 caNone。  
OnCloseQuery 处理阶段的事件，控制是否允许关闭窗口。如果不允许关闭，将 CanClose 参数设为 false。  
  
\---------------------------------------------------------------------------  
  
14. 如何让窗口右上角的按钮不可用？  
  
1) 直接重载窗口过程将关闭功能屏蔽  
头文件  
class TForm1:public TForm  
\{  
private:  
public:  
protected:  
virtual void \_\_fastcall WndProc(TMessage &Message)  
\}  
源文件  
void \_\_fastcall TForm1::WndProc(TMessage &Message)  
\{  
if(Message.Msg==WM\_SYSCOMMAND)  
\{  
if(Message.WParam==SC\_CLOSE)  
\{  
Message.WParam=0;  
\}  
\}  
\}  
  
2)  
★  
HMENU hSysMenu = GetSystemMenu(Handle,0);//得到系统菜单句柄  
EnableMenuItem(hSysMenu,SC\_CLOSE,MF\_DISABLED);//使"关闭"项不可用.此时"关闭"按钮变灰,但系统菜单中的"关闭"没有变灰,只是不能选择.  
第二句也可以改为:  
EnableMenuItem(hSysMenu,SC\_CLOSE,MF\_GRAYD);与上面不同的是,这时系统菜单中的"关闭"项也变灰了.  
  
★  
HWND m\_hWnd = GetSystemMenu(Form\_shuo->Handle,false); //关闭按钮  
EnableMenuItem(m\_hWnd,SC\_CLOSE,MF\_GRAYED);  
  
\---------------------------------------------------------------------------  
  
15. 窗口最大化不正常  
  
有时候在窗口界面设置里将 WindowState 属性直接设为 wsMaximized 得到的最大化效果不理想(比如控件没有像设想的那样靠右排列、树视图下边缘超出可视范围等)，这时候可以通过在窗口的 Show 或 ShowModal 语句后加上设置 WindowState 属性为 wsMaximized 的语句来得到理想的效果。  
  
\---------------------------------------------------------------------------  
  
16. 隐藏程序主窗体  
  
程序一开始就隐藏窗口，在工程名.cpp 中修改：  
Application->Initialize();  
Application->CreateForm(\_\_classid(TForm1), &Form1);  
Application->ShowMainForm = false;  
ShowWindow(Application->Handle, SW\_HIDE);  
Application->Run();  
  
想显示程序时执行下面这两行代码：  
ShowWindow(Application->Handle, SW\_SHOW);  
Application->MainForm->Visible = true;  
  
注：根据我的经验，要想在程序一开始隐藏主窗体，只要在工程名.cpp 文件中加入  
Application->ShowMainForm = false;  
即可，其他地方想隐藏只要执行 Hide() 方法；而想要显示时，只要执行 Show() 方法即可。  
  
\---------------------------------------------------------------------------  
  
17. 由弹出的右键菜单的菜单项获取触发弹出事件的组件(多个组件关联到一个右键菜单时有用)  
  
例：  
void \_\_fastcall TSomeForm::pmiSomeClick(TObject \*Sender)  
\{  
TMenuItem \*mi = static\_cast<TMenuItem \*>(Sender);  
TPopupMenu \*pm = static\_cast<TPopupMenu \*>(mi->GetParentComponent());  
TComponent \*comp = pm->PopupComponent;  
  
// 接下来就可以对 comp 进行操作了。  
...  
\}  
  
\---------------------------------------------------------------------------  
  
18. 让右键也能选中 TreeView，并且正确响应相应节点(TreeView->Selected 节点自动设为右击的节点)  
  
首先将 TreeView 的 RightClickSelect 属性设为 true，再设置其 OnContextPopup 事件如下所示：  
void \_\_fastcall TSomeForm::tvSomeContextPopup(  
TObject \*Sender, TPoint &MousePos, bool &Handled)  
\{  
TTreeView \*tv = static\_cast<TTreeView \*>(Sender);  
  
// 取鼠标点的地方的TTreeNode  
TTreeNode \*node = tv->GetNodeAt(MousePos.x, MousePos.y);  
  
if (NULL == node)  
\{  
// 鼠标点的地方没有TTreeNode，菜单不显  
Handled = true;  
\}  
else  
\{  
// 右键选中TTreeNode  
tv->Selected = node;  
\}  
\}  
  
\---------------------------------------------------------------------------  
  
19. 在右键菜单弹出之前对右键菜单进行设置  
  
在 OnContextPopup  事件中设置。  
  
\---------------------------------------------------------------------------  
  
20. 将英文提示文字(Yes, No, OK, Cancel...)修改为中文  
  
1) 在 BCB6 安装目录的 Source\\Vcl 目录下找到 consts.pas，并复制一份到你的工程目录下；  
2) 将刚拷过来的 consts.pas 文件中提示文字由英文改为中文；  
3) 在当前工程中加入刚才修改过的 dialogs.pas，具体操作：Project-->Add to Project-->找到该文件，添加进来即可；  
4) 设置一下工程选项：Project-->Options-->Packages-->取消 Build with runtime packages 前面的对钩，确定；  
5) 重新编译运行工程即可。  
  
出处：http://pc.8s8s.com/pc/pc12990.htm  
参考：http://www.ccrun.com/article.asp?d=w74av8&i=620(通过消息实现自定义输入框)  
注：其他想改动源代码并且应用到现有的 BCB 工程中去的情况估计也类似，但没测试过。  
  
\---------------------------------------------------------------------------  
  
21. 显示和屏蔽任务栏  
  
// 屏蔽任务栏  
ShowWindow(FindWindow("Shell\_TrayWnd", NULL), SW\_HIDE);  
  
// 显示任务栏  
ShowWindow(FindWindow("Shell\_TrayWnd", NULL), SW\_SHOW);  
  
\---------------------------------------------------------------------------  
  
22. 禁用和启用任务栏  
  
// 禁用任务栏  
EnableWindow(FindWindow("Shell\_traywnd", NULL), false);  
  
// 启用任务栏  
EnableWindow(FindWindow("Shell\_traywnd", NULL), true);  
  
\---------------------------------------------------------------------------  
  
23. 自动隐藏任务栏  
  
先定义如下函数：  
void \_\_fastcall TfrmSomeForm::autohideTaskBar(bool isAutohide)  
\{  
APPBARDATA AppBarData;  
memset(&AppBarData, 0, sizeof(APPBARDATA));  
AppBarData.cbSize = sizeof(APPBARDATA);  
AppBarData.hWnd = FindWindow("Shell\_TrayWnd", NULL);  
  
if (isAutohide)  
\{  
// 设定任务栏自动隐藏  
AppBarData.lParam = ABS\_AUTOHIDE;  
\}  
else  
\{  
// 取消任务栏的自动隐藏  
AppBarData.lParam = ABS\_ALWAYSONTOP;  
\}  
  
SHAppBarMessage(ABM\_SETSTATE, &AppBarData);  
\}  
  
要自动隐藏任务栏时，如下调用该函数：  
autohideTaskBar(true);  
  
要取消任务栏的自动隐藏时，如下调用该函数：  
autohideTaskBar(false);  
  
\---------------------------------------------------------------------------  
  
24. 显示和屏蔽桌面图标  
  
// 屏蔽桌面图标  
ShowWindow(FindWindow("ProgMan", NULL), SW\_HIDE);  
  
// 显示桌面图标  
ShowWindow(FindWindow("ProgMan", NULL), SW\_SHOW);  
  
\---------------------------------------------------------------------------  
  
25. 屏蔽系统热键  
  
1) 方法一，比较彻底，除 Ctrl + Alt + Del 之外全被屏蔽。  
  
在程序中设置如下全局变量和全局函数：  
  
// 钩子句柄  
HHOOK OldHook;  
  
long CALLBACK KeyProc(int code, WPARAM wParam, LPARAM lParam)  
\{  
KBDLLHOOKSTRUCT \*pkbhs;  
  
if (code < 0)  
\{  
return CallNextHookEx(OldHook, code, wParam, lParam);  
\}  
  
pkbhs = (KBDLLHOOKSTRUCT\*) lParam;  
  
if (pkbhs->vkCode == 91 || pkbhs->vkCode == VK\_RWIN)//封锁 win 键  
\{  
return 1;  
\}  
  
if (pkbhs->vkCode == VK\_ESCAPE && GetAsyncKeyState(VK\_CONTROL) < 0)  
\{  
return 1; //封锁 CTRL+ESC  
\}  
  
if (pkbhs->vkCode == VK\_TAB && pkbhs->flags&LLKHF\_ALTDOWN)  
\{  
return 1; //封锁 ALT+TAB  
\}  
  
if (pkbhs->vkCode == 115 && pkbhs->flags & LLKHF\_ALTDOWN)  
\{  
return 1; //封锁 ALT+F4  
\}  
  
if (pkbhs->vkCode == VK\_ESCAPE && pkbhs->flags & LLKHF\_ALTDOWN)  
\{  
return 1; //封锁 ALT+ESC  
\}  
  
if (pkbhs->vkCode == VK\_SPACE && GetAsyncKeyState(VK\_CONTROL) < 0)  
\{  
return 1; //封锁 CTRL+ ' '  
\}  
  
return CallNextHookEx(OldHook, code, wParam, lParam);  
\}  
  
然后就可以屏蔽和启用系统热键了：  
  
// 屏蔽热键  
OldHook = SetWindowsHookEx(WH\_KEYBOARD\_LL, (HOOKPROC)KeyProc, HInstance, 0);  
// 启用热键  
UnhookWindowsHookEx(OldHook);  
  
2) 方法二，只能屏蔽部分热键。  
  
// 屏蔽系统热键  
SystemParametersInfo(SPI\_SCREENSAVERRUNNING, 1, &temp, 0);  
RegisterHotKey(frmSome->Handle, 1, MOD\_ALT, VK\_TAB);  
RegisterHotKey(frmSome->Handle, 2, MOD\_ALT, VK\_F4);  
RegisterHotKey(frmSome->Handle, 3, MOD\_CONTROL, VK\_ESCAPE);  
RegisterHotKey(frmSome->Handle, 4, MOD\_ALT, VK\_ESCAPE);  
  
// 恢复系统热键  
SystemParametersInfo(SPI\_SCREENSAVERRUNNING, 0, &temp, 0);  
UnregisterHotKey(frmSome->Handle, 1);  
UnregisterHotKey(frmSome->Handle, 2);  
UnregisterHotKey(frmSome->Handle, 3);  
UnregisterHotKey(frmSome->Handle, 4);  
  
\---------------------------------------------------------------------------  
  
26. 禁止拖动窗口  
  
1) 在类定义的 public (不确定是不是一定要 public) 部分加上如下声明：  
void \_\_fastcall WMKillFocus(TMessage &msg);  
BEGIN\_MESSAGE\_MAP  
VCL\_MESSAGE\_HANDLER(WM\_NCHITTEST, TMessage, WMKillFocus);  
END\_MESSAGE\_MAP (TForm)  
  
2) 函数 WMKillFocus 实现如下：  
void \_\_fastcall TfrmSomeForm::WMKillFocus(TMessage &msg)  
\{  
TForm::Dispatch(&msg);  
if (msg.Result == HTCAPTION)  
msg.Result = HTCLIENT;  
\}  
  
\---------------------------------------------------------------------------  
  
27. 关于画图  
  
1) TPaintBox 加滚动条方法  
将 TPaintBox  置于 TScrollBox 之上，然后在画图时设定 TScrollBox 的 HorzScrollBar->Range 和 VertScrollBar->Range 即可。  
  
2) TImage 加滚动条方法  
将 TImage 置于 TScrollBox 之上，然后在画图时设定 TScrollBox 的 HorzScrollBar->Range 和 VertScrollBar->Range，同时还需设定 TImage 的 Picture->Bitmap->Width 和 Picture->Bitmap->Height。  
  
3) 保存 TPaintBox 图像的方法  
  
Graphics::TBitmap \*savePic = new Graphics::TBitmap;  
TRect Dect, Sect;  
Dect = Rect(0, 0, pb->Width, pb->Height);  
Sect = Rect(0, 0, pb->Width, pb->Height);  
pb->Canvas->Brush->Style = bsClear;  
savePic->Width = pb->Width;  
savePic->Height = pb->Height;  
savePic->Canvas->CopyRect(Dect, pb->Canvas, Sect);  
savePic->SaveToFile("c:\\\\abc.bmp");  
delete savePic;  
  
以上方法的缺点是无法保存超出屏幕大小的图像。  
  
4) 保存 TImage 图像的方法  
  
img->Picture->SaveToFile("c:\\\\a.jpg");  
  
5) TImage 图像过大导致“空间不足”错误的处理方法  
  
设一个小点的格式(默认值是 pfDevice)：  
img->Picture->Bitmap->PixelFormat = pf1bit;  
  
6) 画笔颜色(上一条的副作用)  
  
如下语句将使得 TImage 变成黑白图片：  
img->Picture->Bitmap->PixelFormat = pf1bit;  
如果想恢复彩色，应该设成大一些的格式(pf4bit 以上)：  
img->Picture->Bitmap->PixelFormat = pf4bit;  
  
\---------------------------------------------------------------------------  
  
28. 压缩图片  
  
将 BMP 格式图片压缩为 JPG 格式：  
  
TJPEGImage \*jpg = new TJPEGImage();  
jpg->PixelFormat = jf8Bit; ;//设置像素格式  
jpg->Assign(bmp);  
jpg->Compress();  
jpg->SaveToFile("C:\\\\a.jpg");  
delete jpg;  
  
要记得导入头文件：  
\#include <jpeg.hpp>  
  
\---------------------------------------------------------------------------  
  
29. 配置备份  
  
1. 将注册表下  
HKEY\_CURRENT\_USER\\Software\\Borland\\C++Builder\\6.0  
导出为 reg  文件，这里边包含了大部分的设置，包括语法颜色什么的。恢复时导入注册表文件即可。  
  
2. 将 bcb 目录下 Bin 下的 Codding.dst 和 Debugging.dst 备份。这是 bcb 编写代码和 debug 时的窗体位置配置。恢复时将文件复制到 bin 目录即可