摘要：
选择结构语句IFif语句通过对条件表达式的判断，来决定程序的执行流程。if <条件表达式>then语句1;{单分支条件语句}if<条件表达式>then语句1else 语句2;{双分支条件语句}if<条件表达式1>then语句1{嵌套形式条件语句}elseif<条件表达式2>then语句2elseif<条件表达式n>then语句3......else语句n;例1：单分支条件语句判断一个数的奇偶性。（... 阅读全文
posted @ 2012-06-03 17:54
XE2011
阅读(175)
评论(0)
推荐(0)
摘要：
//ini//REG//XML操作INI文件函数作用GetPrivateProfileInt //从.INI文件中取得指定节指定键名的整型数信息GetPrivateProfileSection//从.INI文件中取得指定节的信息GetPrivateProfileSectionNames//从.INI文件中取得所有节的名称GetPrivateProfileString从.INI//文件中取得指定节指... 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(336)
评论(0)
推荐(0)
摘要：
project -> options-> liker -> user dynamic rtl 去掉 project -> options-> compiler -> 选 release project -> options-> packages-> builder with runtime packages 去掉通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(195)
评论(0)
推荐(0)
摘要：
Application->Minimize();Edit1-> PasswordChar= '* '; //单引号btn1->Left = 16;btn1->Top = 16;btn1->Width = 75;btn1->Height = 25;btn1->Caption = "btn1";Button1->Enabled = true;Memo1->Clear();//清空Memo1->SetF... 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(115)
评论(0)
推荐(0)
摘要：
MessageBeep(MB_OK);发声if(MessageDlg("Are you sure to Exit",mtConfirmation, TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes){Close();}Application->ProcessMessages();MessageBox(this->Handle,"Text","Tips",MB_OK|M... 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(127)
评论(0)
推荐(0)
摘要：
AbortPrinter在假脱机的情况下删除打印缓冲文件 AbortProc当打印作业取消时调用的一个应用程序定义的回调函数 AddForm为指定的打印机从有效窗体列表中新增一个窗体 AddJob获取一个文件名用来保存打印缓冲工作 AddMonitor新安装一个打印机管理器 AddPort新增一个打印机端口 AddPrinter在指定的服务器上新安装一个打印机 AddPrinte... 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(588)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::ComboBox1DropDown(TObject *Sender){ ComboBox1->Items= Screen->Fonts;}//---------------------------------------------------------------------------void __fastcall TForm1::ComboB... 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(157)
评论(0)
推荐(0)
摘要：
Memo1->Clear();Memo1->Lines->Add(GetCurrentDir());Memo1->Lines->Add(Application->ExeName);通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(185)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::Button1Click(TObject *Sender){ TBorderIcons A = BorderIcons ; A >> biMaximize; BorderIcons = A;}通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(124)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::Button1Click(TObject *Sender){ String AppPath; AppPath=GetCurrentDir(); Memo1->Lines->LoadFromFile(AppPath+"\\"+"a.rtf");}void __fastcall TForm1::Button1Click(TObject *Sender){... 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(151)
评论(0)
推荐(0)
摘要：
//在系统菜单上添加所需的菜单项AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"NEW(&A)");通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(184)
评论(0)
推荐(0)
摘要：
TForm1*Form1=newTForm1(this);Form1->Show();通过 Wiz 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(155)
评论(0)
推荐(0)
摘要：
//模拟在Edit1组件中按下了字母a键PostMessage(Edit1->Handle,WM_KEYDOWN,65,0);通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(142)
评论(0)
推荐(0)
摘要：
文件操作常用的函数有：1.DeleteFile3.FileAge4.FileClose5.FileDateToDateTime6.FileExists7.FileGetAttr8.FileGetDate9.FileOpen10.FileRead11.FileSearch12.FileSeek13.FileSetAttr14.FileSetDate15.FileWrite16.FindClose17... 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(245)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y){Canvas->FillRect(ClientRect);Canvas->MoveTo(0, 0);Canvas->LineTo(X, Y);}通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(179)
评论(0)
推荐(0)
浙公网安备 33010602011771号