摘要：
String InputString = InputBox(L"Input Box", L"Prompt", L"Default string"); Edit1->Text = InputString;通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(340)
评论(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
阅读(171)
评论(0)
推荐(0)
摘要：
TForm1*Form1=newTForm1(this);Form1->Show();通过 Wiz 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(145)
评论(0)
推荐(0)
摘要：
//模拟在Edit1组件中按下了字母a键PostMessage(Edit1->Handle,WM_KEYDOWN,65,0);通过 为知笔记 发布 阅读全文
posted @ 2012-06-03 17:51
XE2011
阅读(138)
评论(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
阅读(223)
评论(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
阅读(189)
评论(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
阅读(133)
评论(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
阅读(155)
评论(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
阅读(185)
评论(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
阅读(169)
评论(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
阅读(174)
评论(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
阅读(159)
评论(0)
推荐(0)
浙公网安备 33010602011771号