摘要：
//ini//REG//XML操作INI文件函数作用GetPrivateProfileInt //从.INI文件中取得指定节指定键名的整型数信息GetPrivateProfileSection//从.INI文件中取得指定节的信息GetPrivateProfileSectionNames//从.INI文件中取得所有节的名称GetPrivateProfileString从.INI//文件中取得指定节指... 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(333)
评论(0)
推荐(0)
摘要：
AbortPrinter在假脱机的情况下删除打印缓冲文件 AbortProc当打印作业取消时调用的一个应用程序定义的回调函数 AddForm为指定的打印机从有效窗体列表中新增一个窗体 AddJob获取一个文件名用来保存打印缓冲工作 AddMonitor新安装一个打印机管理器 AddPort新增一个打印机端口 AddPrinter在指定的服务器上新安装一个打印机 AddPrinte... 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(565)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::Button1Click(TObject *Sender){ TBorderIcons A = BorderIcons ; A >> biMaximize; BorderIcons = A;}通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(112)
评论(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
阅读(146)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::ComboBox1DropDown(TObject *Sender){ ComboBox1->Items= Screen->Fonts;}//---------------------------------------------------------------------------void __fastcall TForm1::ComboB... 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(130)
评论(0)
推荐(0)
摘要：
Memo1->Clear();Memo1->Lines->Add(GetCurrentDir());Memo1->Lines->Add(Application->ExeName);通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:52
XE2011
阅读(173)
评论(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
阅读(188)
评论(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
阅读(101)
评论(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
阅读(124)
评论(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
阅读(164)
评论(0)
推荐(0)
摘要：
Form1->Caption = LowerCase(Edit1->Text);通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(121)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::Button1Click(TObject *Sender){PaintBox1->Canvas->Brush->Color = clRed;PaintBox1->Canvas->FillRect(PaintBox1->Canvas->ClipRect);PaintBox1->Canvas->Ellipse(0,0,100,100);}//------... 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(273)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose){if (MessageDlg("Close the form?", mtConfirmation, TMsgDlgButtons() << mbOK << mbCancel,0) == mrCancel)CanClose = false;}通过 为知笔记 ... 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(134)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::FormResize(TObject *Sender){//button1 的位置一直在窗体的最右边Button1->Left = Form1->ClientWidth - Button1->Width;}通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(137)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::Edit1Enter(TObject *Sender){Edit1->Color = clYellow;}//---------------------------------------------------------------------------void __fastcall TForm1::Edit1Exit(TObject *Sen... 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(102)
评论(0)
推荐(0)
浙公网安备 33010602011771号