摘要：
文件操作常用的函数有：1.DeleteFile3.FileAge4.FileClose5.FileDateToDateTime6.FileExists7.FileGetAttr8.FileGetDate9.FileOpen10.FileRead11.FileSearch12.FileSeek13.FileSetAttr14.FileSetDate15.FileWrite16.FindClose17... 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(243)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::Edit1Enter(TObject *Sender){Edit1->Color = clYellow;}//---------------------------------------------------------------------------void __fastcall TForm1::Edit1Exit(TObject *Sen... 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(118)
评论(0)
推荐(0)
摘要：
Form1->Caption = LowerCase(Edit1->Text);通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(137)
评论(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
阅读(285)
评论(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
阅读(151)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::FormResize(TObject *Sender){//button1 的位置一直在窗体的最右边Button1->Left = Form1->ClientWidth - Button1->Width;}通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(149)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::Button1Click(TObject *Sender){ TCanvas *DeskTop; DeskTop = new TCanvas; DeskTop-> Handle=GetWindowDC(GetDesktopWindow()) ; Image1-> Canvas-> CopyMode=cmSrcCopy; Image1-> Canvas... 阅读全文
posted @ 2012-06-03 17:50
XE2011
阅读(209)
评论(0)
推荐(0)
摘要：
//单击左键弹起菜单 97void __fastcall TForm1::Button1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,int X, int Y){POINT pt;::GetCursorPos(&pt);PopupMenu1->Popup(pt.x, pt.y);}通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:50
XE2011
阅读(151)
评论(0)
推荐(0)
摘要：
Label1->AutoSize = False;// TrueLabel1->Caption = "This string is too long to be the caption of this label";通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:50
XE2011
阅读(168)
评论(0)
推荐(0)
摘要：
#include "Unit2.h"void __fastcall TForm1::Button1Click(TObject *Sender){if (!Form2->Visible){Form2->Visible = true;Form2->BringToFront();}}通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:50
XE2011
阅读(210)
评论(0)
推荐(0)
摘要：
String String1 = "Abc";String String2 = "ABC";int I = CompareStr(String1, String2);// The value of I is less than 0.Edit1->Text = IntToStr(I); //Return Valueif (I != 0) ShowMessage ("The strings are n... 阅读全文
posted @ 2012-06-03 17:50
XE2011
阅读(181)
评论(0)
推荐(0)
摘要：
void __fastcall TForm1::Button1Click(TObject *Sender){try{Form1->Caption = IntToStr(StrToInt(Edit1->Text) * StrToInt(Edit2->Text));}catch(...){ShowMessage("You must specify integer values. Please try ... 阅读全文
posted @ 2012-06-03 17:50
XE2011
阅读(191)
评论(0)
推荐(0)
摘要：
#include <stdio.h>void main (){int value = 0;while (value <= 100){printf("%d\n", value);value++;}}通过 Wiz 发布 阅读全文
posted @ 2012-06-03 12:43
XE2011
阅读(164)
评论(0)
推荐(0)
浙公网安备 33010602011771号