Como utilizar RadioButton?

DeNiS* · 24 de setembro de 2010

Olá

Estou com um problema em meu apicativo delphi...tipo...eu qro fazer um programa de calcular IMC que pede altura com edit, peso com edit, e sexo utilizando radio button, que mostra Masculino e Feminino.

A pessoa põe a altura, o peso e seleciona o sexo e claca em um botao chamado Calcular, que ai abre outra janela.

Tipo se o IMC do usuario for 20,5 e ele ter selecionado masculino aparecer uma mensagem com o IMC e com a mensagem "voce está abaixo da média". Caso a pessoa teria selecionado feminino, mostra o IMC e fala "voce esta no Peso Ideal", pois o IMC do peso Ideal das mulheres e > 19,3 e dos homens sao > 20,7.

Eu ja Fiz o programa sem usar Radio button, ele so mostra uma mensagem com o numero do imc, e também fiz um bota na form principal para a consulta de uma tabela.

Quero fazer um programa que mostre a mensagem, mas não estou conseguindo achar como ultila um RadioButton.

Será um comando if?

NAO SEI!

Me ajudem plizzz ^^

olha isso vejam se eu estou fazendo certo....

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfmPrincipal = class(TForm)
    lblTitulo: TLabel;
    lblTitulo2: TLabel;
    lblAltura: TLabel;
    etAltura: TEdit;
    lblPeso: TLabel;
    etPeso: TEdit;
    btnCalcular: TButton;
    btnTabela: TButton;
    btnSair: TButton;
    Button1: TButton;
    lblResultado: TLabel;
    etResultado: TEdit;
    lblSexo: TLabel;
    rbMasculino: TRadioButton;
    rbFeminino: TRadioButton;
    procedure btnCalcularClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure btnSairClick(Sender: TObject);
    procedure btnTabelaClick(Sender: TObject);
    procedure rbMasculinoClick(Sender: TObject);
    procedure rbFemininoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmPrincipal: TfmPrincipal;
  NumUm, NumDois, IMC:Real;

implementation

{$R *.dfm}

Uses Unit2, Unit3, Unit4, Unit5, Unit6;

procedure TfmPrincipal.btnCalcularClick(Sender: TObject);
begin

  If rbMasculino=true then
    begin
     NumUm:=StrtoFloat(etAltura.Text);
     NumDois:=StrtoFloat (etPeso.Text);
     IMC:=NumDois/(NumUm * NumUm);
        If imc < 20,7 then
          fmResp1.ShowModal
        Else If imc >20,7 and <27,8 then
          fmResp2.ShowModal
        Else if imc > 27,8 and <31,1 then
          fmResp3.ShowModal
        Else
          fmResp3.ShowModal;
        End;
    End;
  if tbFeminino=true then
    Begin
     NumUm:=StrtoFloat(etAltura.Text);
     NumDois:=StrtoFloat (etPeso.Text);
     IMC:=NumDois/(NumUm * NumUm);
        If imc < 19,1 then
          fmResp1.ShowModal
        Else If imc >19,1 and <27,3 then
          fmResp2.ShowModal
        Else if imc > 27,3 and <32,3 then
          fmResp3.ShowModal
        Else
          fmResp3.ShowModal;
        End;
    End;
    End;

procedure TfmPrincipal.Button1Click(Sender: TObject);
begin
    etAltura.Text:=' ';
    etPeso.Text:=' ';
    etResultado.Text:=' ';
    etAltura.SetFocus

end;

procedure TfmPrincipal.btnSairClick(Sender: TObject);
begin
  Close;
end;

procedure TfmPrincipal.btnTabelaClick(Sender: TObject);
begin
  fmTabela.ShowModal;
end;

procedure TfmPrincipal.rbMasculinoClick(Sender: TObject);
begin

  NumUm:=StrtoFloat(etAltura.Text);
  NumDois:=StrtoFloat (etPeso.Text);
  IMC:=NumDois/(NumUm * NumUm);



end;

procedure TfmPrincipal.rbFemininoClick(Sender: TObject);
begin

 NumUm:=StrtoFloat(etAltura.Text);
  NumDois:=StrtoFloat (etPeso.Text);
  IMC:=NumDois/(NumUm * NumUm);

end;

end.

FelipeVettorazzi · 26 de setembro de 2010

Você poderá utilizar o RadioGroup.

Após Adicionado, em seu Object Inspector, vá em Items, e adicione Masculino e Feminino.

Agora, faça um if..

if (RadioGroup1.ItemIndex=0) then //Indica o primeiro Radio Button, no caso, Masculino.
begin
       //código para verificar o peso
end;

if (RadioGroup1.ItemIndex=1) then //Indica o segudo RadioButton, no caso, Feminino.
begin
       //código para verificar o peso
end;

Felipe Joseph Vettorazzi .