Programa Viagem

Vamos fazer um programa bem básico que ilustra o uso dos componentes RadioButton, Image e Label.

1 - Inicie o C++Builder;

2 - Dê um clique em File e depois em New Application;

3 - Coloque três componentes RadioButton, três componentes Image e três componentes Label, de acordo com a figura. O Image está na paleta Addtional e os outros dois na paleta Standart.

Vamos alterar a aparência do nosso programa. Selecione o componente RadioButton1 e mude a propriedade Caption para "Estou sem pressa". No RadioButton2 coloque "Estou com pressa" e no RadioButton3 coloque "Estou com muita pressa".

Observe que o C++Builder troca o nome desses componentes automaticamente.

Dê um duplo clique em Image1. No Picture Editor que se abrirá selecione a imagem carro.ico; para Image2 selecione avião.ico e para Image3 selecione foguete.ico. Mude a propriedade Center desses três componentes para true.

Obs. Caso eu ainda não tenha disponibilizado esses ícones em meu Site, procure algum equivalente em seu computador ou na Net.

Alteremos a propriedade Caption (no Object Inspector) dos componentes Label.

Eis a aparência do projeto:

Altere a propriedade Visible de todos os componentes Label e de todos os componentes Image para false.

Agora vamos digitar o código dos RadioButton1. No Object Inspector dê um duplo clique na caixa ao lado direito do evento OnClick de cada RadioButton e digite para que o código fique como a seguir:

//---------------------------------------------------------------------------

#include <vcl\vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

Image1 -> Visible = true;

Label1 -> Visible = true;

Image2 -> Visible = false;

Label2 -> Visible = false;

Image3 -> Visible = false;

Label3 -> Visible = false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

Image1 -> Visible = false;

Label1 -> Visible = false;

Image2 -> Visible = true;

Label2 -> Visible = true;

Image3 -> Visible = false;

Label3 -> Visible = false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::RadioButton3Click(TObject *Sender)

{

Image1 -> Visible = false;

Label1 -> Visible = false;

Image2 -> Visible = false;

Label2 -> Visible = false;

Image3 -> Visible = true;

Label3 -> Visible = true;

}

//---------------------------------------------------------------------------

Execute o programa e veja o resultado.

Eis as propriedades visualizadas no Text: