1ãå建ä¸ä¸ªæ°çå·¥ç¨æ件(New
Application),å¨Form1ä¸æ¾ç½®ä¸¤ä¸ªTPanelç±»åçPanel1åPanel2,è°æ´å¤§å°åé,åå¨çªä½ä¸æ¹æ¾ç½®å个TButtonç±»åButton1,Button2,Button3,Button4,设置æ§ä»¶å±æ§å¦ä¸ï¼Button1->Caption="æ°å»ºæ§ä»¶æ°ç»",Button2->Caption="æ¹åæ§ä»¶ä½ç½®",
Button3->Caption="è¿åå°åä½ç½®",
Button4->Caption="éåº"ï¼Button2->Enabled=false,Button3->Enabled=falseã
2ãå¨æ件Unit1.Hä¸å å
¥ä»¥ä¸å£°æï¼
class TForm1 : public TForm
{
published: // IDE-managed Components
TPanel *Panel1;
TPanel *Panel2;
TButton *Button1;
TButton *Button2;
TButton *Button3;
TButton *Button4;
private: // User declarations
TList *MyVCL;
public: // User declarations
__fastcall TForm1(TComponent* Owner);
virtual __fastcall ~TForm1( );
};
3ãåæ¢å°å·¥ç¨çFormçé¢,åå»å·¥ç¨ç主çé¢Form,å建ä¸ä¸ªOnCreateäºä»¶å¥æ,å¨æ件Unit1.CPPä¸å å
¥ä»¥ä¸ä»£ç ï¼
void __fastcall TForm1::FormCreate(TObject *Sender)
{
MyVCL = new TList;//å建TList对象
}
å°TForm1ææå½æ°å å
¥å°æ件Unit1.CPPä¸ï¼
__fastcall TForm1::~TForm1()
{
delete MyVCL; //å é¤TList对象
}
4ãåå»æ ç¾(Caption)为"å建æ§ä»¶æ°ç»"çæé®,å建ä¸ä¸ªOnClickäºä»¶å¥æ,æ·»å 以ä¸ä»£ç å°OnClickäºä»¶å¥æä¸ï¼
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//å建æ°çæ§ä»¶,è°æ´å
¶ä½ç½®,并å å
¥å°MyVcl(TList ç±»)ä¹ä¸
int temptop=5;
for (int i=0;i<4;i++)
{
TEdit *EditNow = new TEdit(this);
EditNow->Parent=Panel1;
EditNow->Text= IntToStr(i);
EditNow->ReadOnly=true;
EditNow->Top=temptop;
EditNow->Height=24;
EditNow->Width=24;
EditNow->Left=10;
MyVCL->Add(EditNow); //å å
¥å°æ§ä»¶æ°ç»ä¸
TImage *ImageOff= new TImage(this);
ImageOff->Parent=Panel1;
ImageOff->Picture->LoadFromFile("None.BMP");
ImageOff->Top=temptop;
ImageOff->Height=24;
ImageOff->Width=24;
ImageOff->Left=EditNow->Left+EditNow->Width;
MyVCL->Add(ImageOff); //å å
¥å°æ§ä»¶æ°ç»ä¸
TEdit *EditStatus = new TEdit(this);
EditStatus->Parent=Panel1;
EditStatus->Font->Name = "Arial";
EditStatus->Font->Size = 12;
EditStatus->Text="ç¦æ¢è®¿é®";
EditStatus->ReadOnly=true;
EditStatus->Top=temptop;
EditStatus->Height=24;
EditStatus->Width=80;
EditStatus->Left= ImageOff->Left+ImageOff->Width;
MyVCL->Add(EditStatus); //å å
¥å°æ§ä»¶æ°ç»ä¸
temptop=temptop+24+5;
}
Button1->Enabled=false;
Button2->Enabled=true;
}
5ãå4æ示æ¹æ³,ä¾æ¬¡åå»æ ç¾çæ é¢(Caption)为"æ¹åæ§ä»¶ä½ç½®"ã "è¿åå°åä½ç½®"ã "éåº"çæé®,å建对åºçOnClickäºä»¶å¥æ,æ·»å 以ä¸ä»£ç å°å¯¹åºçOnClickäºä»¶å¥æä¸ï¼
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for (int i=0;i<4;i++)
((TImage*)MyVCL->Items[i*3+1])->Parent=Panel2;
Button2->Enabled=false;
Button3->Enabled=true;
}
void __fastcall TForm1::Button3Click(TObject *Sender)
{
for (int i=0;i<4;i++)
((TImage*)MyVCL->Items[i*3+1])->Parent=Panel1;
Button3->Enabled=false;
Button2->Enabled=true;
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Close(); //å
³éçªä½
}
ç±ä¸æè¿°,å®é
ç代ç 大å¤åªæ¯ç¨äºè®¾å®æ§ä»¶ä½ç½®ååºæ¬å±æ§,çæ£å®ç°æ§ä»¶æ°ç»åè½ç代ç 并ä¸å¤ªå¤,ä¹ä¸å¤æ,èä¸ååççµæ´»ï¼éè¦æ³¨æçæ¯ä½¿ç¨TList类对象ç»åä¸çå项æ§ä»¶ä¹å,å¿
é¡»å
å°å
¶å¼ºå¶è½¬æ¢ä¸ºä¸ä¸ªå¯¹è±¡æé以ææå
¶ç±»å,æè½å¯¹å
¶å±æ§è¿è¡ä¿®æ¹/èµå¼æä½ã
温馨提示:答案为网友推荐,仅供参考