Como próxima lição da nossa jornada Borland, vamos aprender a fazer os controles de um form interagirem entre si com a força do pensamento.
Para essa proeza precisaremos de:
Dois TButtons Um TEdit Um TListBox
Bom, sabemos já como colocar esses caras no form principal. Apenas espalhe-os de maneira que eles não fiquem uns em cima dos outros (essa técnica de espalhamento chama-se design).
Agora no evento default do Button1 (duplo-clique nele) colocaremos o seguinte código:
void __fastcall TForm1::Button1Click(TObject *Sender) { if( !Edit1->Text.IsEmpty() ) { ListBox1->AddItem(Edit1->Text, 0); Edit1->Text = ""; } }
Percebeu? Não? Então rode e note o que acontece quando você aperta o botão.
Agora iremos fazer algo mais interessante ainda com o segundo botão. Coloque no evento default o seguinte código:
void __fastcall TForm1::Button1Click(TObject *Sender) { if( !Edit1->Text.IsEmpty() ) { ListBox1->AddItem(Edit1->Text, 0); Edit1->Text = ""; } }
É só isso?
Mais simples, impossível. E com um pouco de imaginação, o mais besta dos aplicativos pode se tornar uma utilidade do dia a dia. Até sua mãe vai adorar.
