www.pudn.com > C++ Builder 6 编程实例教程.zip > Hello.cpp, change:2002-04-14,size:1180b

//--------------------------------------------------------------------------- 
#include <vcl.h> 
#pragma hdrstop 
 
#include "Hello.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::FormCreate(TObject *Sender) 
{ 
Form1->Memo1->Clear(); 
//清除文本框 
Form1->Memo1->Lines->Text="单击下面的OK按钮，您将会看到......"; 
//设置Memo控件中的文本内容 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
ShowMessage("Hello World!"); 
//显示一个"Hello World!"对话框 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
Application->Terminate(); 
//程序运行结束 
} 
//---------------------------------------------------------------------------