查看單個文章
舊 2005-06-21, 05:04 PM   #3 (permalink)
魔術王子
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:42 | 在線時長:1998小時 | 升級還需:23小時級別:42 | 在線時長:1998小時 | 升級還需:23小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 3007
精華: 0
現金: 15048 金幣
資產: 2678678 金幣
預設

Unit1.h內容

語法:
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
#define MYNOTIFYICONID WM_USER+10
#define MYWM_NOTIFYICON WM_USER+20
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TPopupMenu *PopupMenu1;
    TMenuItem *N1;
    TMenuItem *N2;
    TMenuItem *N3;
    TMenuItem *N4;
    void __fastcall FormActivate(TObject *Sender);
    void __fastcall N2Click(TObject *Sender);
    void __fastcall N4Click(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall N1Click(TObject *Sender);
private:	// User declarations
    NOTIFYICONDATA Icon;
    void TForm1::ShowIcon();
    void TForm1::HideIcon();
public:		// User declarations
    __fastcall TForm1(TComponent* Owner);
    void virtual _fastcall TRAYCALLBACK(TMessage& Message);
    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(MYWM_NOTIFYICON,TMessage,TRAYCALLBACK)
    END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
粗體部分需要自行KeyIn
魔術王子 目前離線  
送花文章: 1536, 收花文章: 1557 篇, 收花: 3898 次
回覆時引用此帖