BCB使用小技巧（1）

　　新建一个应用，在窗体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;