新建一个应用,在窗体Form1上添加两个TLabel组件名为Label1,Label2;
添加两个TButton组件名为Button1,Button2;添加一个TMemo组件名为Memo1。
然后在代码编辑器中添加以下代码。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption=SendMessage(Memo1->Handle,EM_LINEFROMCHAR,-1,0)+1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Label2->Caption=Memo1->SelStart-SendMessage(Memo1->Handle,EM_LINEINDEX,-1,0)+1;
}
这种方法同样适用于RichEdit。
2.在Memo中增加一行后,如何使最后一行总能显示
或如何控制ScrollBar,将其拉到最下面
SendMessage(Memo1->Handle,EM_SCROLL,SB_LINEDOWN,0 )
3.为TStringGrid 的 文 字 加 上 颜 色
TStringGrid 是C++ Builder 提 供 给 用 户 的 一 种 字 符 网 格 控 件。 美 中 不 足 的 是, 它 没 有 提 供 分 别 修 改 各 单 元 字 体 颜 色、 大 小 的 方 法。 其 实 要 为TStringGrid 实 现 这 样 功 能, 只 需 在 程 序 中 稍 加 处 理 就 行 了。 方 法 是 自 定 义 一 个 二 维 数 组 cellbuf, 它 的 下 标 与 网 格 单 元 列 行 一 一 对 应, 用 于 存 放 各 网 格 单 元 的 颜 色、 文 字 等 信 息。
struct CellStru
{
AnsiString msg; // 文 字 信 息
TColor color; // 文 字 颜 色
};
CellStru cellbuf[MAXCOL][MAXROW];
初 始 化cellbuf 后, 再 在 字 符 网 格 控 件 StringGrid1 的OnDrawCell 响 应 事 件 中, 加 入 如 下 的 代 码 即 可。
void __fastcall TForm1::StringGrid1DrawCell (TObject *Sender, int Col,
int Row, TRect &Rect, TGridDrawState State)
{
StringGrid1- >Canvas- >Font- > Color=cellbuf[Col][Row].color;
StringGrid1- >Canvas- >TextOut(Rect.Left+3, Rect.Top+3,cellbuf[Col][Row].msg);
}
4.BCB未公开的代码编辑热键
左移或右移整块代码
选中一块代码,反白後,
(1)按 CTRL+ K,松开,再按 I 是整片往右移;
(2)按 CTRL+ K,松开,再按 U 是整片文字往左移.
或者,反白後,
(1)按 CTRL+ SHIFT+ I 是整片往右移,
(2)按 CTRL+ SHIFT+ U 是整片文字往左移.
5.任务条状态区的应用
Windows95的任务条(Taskbar)上有一个状态区,可以显示当前输入法(中文版)、当前时间等信息,当启动打印管理器时还可显示打印管理器的图标,表明打印机正在工作。我们可以使用这一技术为正在后台工作的程序设置一个图标,以显示它的工作状态,用户可以通过鼠标点击来查询详细情况或修改工作参数。下面对其实现方法作一介绍。
6.图标的添加和删除
实现这两个操作都是通过调用Shell_NotifyIcon函数,并传递两个参数:一个是操作指示,添加时为NIM_ADD,删除时为NIM_DELETE;另一个是结构NOTIFYCONDATA,并需适当的初始化。通过指定不同的图标标识号,可以添加多个图标。下面的两个函数分别实现添加图标和移去图标。
//AddTaskBarICON:将指定图标添加到TaskBar的状态区,成功返回TRUE,否则返回FALSE //hwnd:指定接收消息的窗口 //uID:图标的标识号 //hicon:待添加的图标句柄 //IpszTip:当鼠标停留在图标上时显示的提示信息 BOOL AddTaskBarICON(HWND hwnd,UINT uID,HICON hicon,LPSTR lpszTip) { BOOL res; NOTIFYICONDATA tnid; tnid.cbSize=sizeof(NOTIFYICONDATA); tnid.hWnd=hwnd; tnid.uID=uID; tnid.uFlags=NIF_MESSAGE|NIF_ICON|NIF_TIP; //用户点击图标时传给指定窗口的回调函数的消息,由程序员自定义 tnid.uCallbackMessage=MYWM_NOTIFYICON; tnid.hIcon=hicon; if (lpszTip) lstrcpyn(tnid.szTip,lpszTip,sizeof(tnid.szTip)); else tnid.szTip[0]=‘/0' //NIM_ADD:添加图标 res=Shell_NotifyIcon(NIM_ADD,&tnid); if(hicon) DestroyIcon(hicon); return res; } //DeleteTaskBarIcon:移去AddTaskBar的状态区上的指定图标,成功则返回TRUE,否则返回FALSE //hwnd:添加图标时指定的窗口 //uID:要删除的图标标识号 BOOL DeleteTaskBarIcon(HWDN hwnd,UITN uID) { BOOL res; NOTIFYICONDATA tnid; tnid.cbSize=sizeof(NOTIFYICONDATA); tnid.hWnd=hwnd; tnid.uID=uID; //NIM_DELETE:移去图标 res=Shell_NotifyIcon(NIM_DELETE,&tnid); return res; }
接收图标返回的消息
_________________________________
状态区的图标可以接收用户的输入,将接收到的鼠标消息传送到指定窗口的回调函数,程序可以对用户的输入做出相应的反应。下面是对应的窗口回调函数和消息处理函数的例子:
//MainWndProc:窗口回调函数,处理传递给窗口的消息 //Windows根据在添加图标时指定的窗口句柄确定对应的回调函数 LRESULT CALLBACK MainWndProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lP aram){ switch(message){ //MYWM_NOTIFYICON:添加图标时指定的消息 case MYWM_NOTIFYICON: //调用自定义的消息处理函数 ON_MYWM_NOTIFYICON(wParam,lParam); break; …… case WM_DESTROY: PostQuitMessage(0); break; default: return(DefWindowsProc(hwnd,message,wParam,lParam)); } return lParam; } //On_MYWM_NOTIFYICON:处理TaskBar的状态区图标产生的消息 //wParam:回调消息的第一个参数,图标的标识号 //lParam:回调消息的第二个参数,鼠标消息的代号 void ON_MYWM_NOTIFYICON(WPARAM wParam,LPARAM lParam) { UINT uID; UINT uMouseMsg; uID=(UINT) wParam; uMouseMsg=(UINT) lParam; //本函数只处理了鼠标左键单击消息,类似可以添加处理其它 //鼠标消息的代码 if(uMouseMsg=WM_LBUTTONDOWN) //当用户使用鼠标左键单击时显示一个消息框, MessageBox(NULL,"Be happy,don't worry.", "TaskBarICON",MB_OK); return; }
7.怎样用代码来最小化或恢复程序
你能够用下面三种方法之一来实现它。
方法一:发送一条Windows消息到主窗口的Handle属性或Application->Handle。这条消息就是WM_SYSCOMMAND,将wParam设为SC_MINIMIZE或SC_RESTORE。你可以调用SendMessageAPI函数来发送消息。
//设置WPARAM为SC_MINIMIZE来最小化窗口
SendMessage(Application->Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
//设置WPARAM为SC_RESTROE来恢复窗口
SendMessage(Application->Handle,WM_SYSCOMMAND,SC_RESTORE,0);
方法二:调用ShowWindowAPI函数。你必须传送Application对象句柄到ShowWindow函数。如果你传送给ShowWindow函数的句柄是主窗口,那么主窗口将最小化到桌面(desktop)而不是任务条(taskbar)。
//最小化:传送SW_MINIMIZE到ShowWindow
ShowWindow(Application->Handle,SW_MINIMIZE);
//恢复:传送SW_RESTORE到ShowWindow
ShowWindow(Application->Handle,SW_RESTORE);
方法三:调用Application对象的Minimize或Restore函数。
//调用Minimize最小化应用程序
Application->Minimize();
//调用Restore恢复应用程序
Application->Restore();
调用Application的方法较易用,但发送WM_SYSCOMMAND消息功能更强。另外,WM_SYSCOMMAND消息允许你最大化程序,改变光标为帮助光标,滚动程序,移动一个窗口,改变窗口大小,甚至模拟Alt-TAB切换到另一窗口。紧记,实现这些功能用API函数更好。
尽管调用ShowWindow也能工作,你大概也不想用它来最小化或恢复程序。当隐藏的窗口被最小化时ShowWindow会引起最小化动画出现。这看上去稍微有点傻,因为动画是从程序主窗口的位置远离中心。8.BCB中派生VCL类及动态地创建控件
以生成一个TMemo的派生类及动态地创建该VCL控件为例。
Class TMemoEx : public TMemo
{
.
.
}
extern TMemoEx memoex;
Class TForm1 : Class TForm
{
public:
TMemoEx *MemoEx;
.
.
}
void _fastcall TForm1::FormShow(TObject *Sender)
{
MemoEx=new TMemoEx(this);
MemoEx->Parent=this;
.
.
}
总之,遵循以下步骤即可:
类定义;
extern TMemoEx memoex;
TMemoEx *MemoEx;
MemoEx=new TMemoEx(this);
MemoEx->Parent=this;