Ir para conteúdo
Fórum Script Brasil
  • 0

Radiobutton


Blackleaf

Pergunta

Bom eu estou fazendo um programa que tem duas formas, aí eu uso o radiobutton para isso.

Aí eu queria mudar a função de um botão quando o radiobutton fosse checado.

Eu uso esse comando básico apenas para mudar o caption:

if RadiobuttonX.checked:=True
then
 begin
  buttonX.caption:=(' TESTE ');
  end

Aí s o botão quando clicado aparece a frase 'Teste 1', eu queria que quando clicasse no radiobutton mudasse a função para, ex. 'Teste2' ou outro comando mais complexo.

Editado por Blackleaf
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0
Aí eu queria mudar a função de um botão quando o radiobutton fosse checado.

Vai ai um exemplo bem simples:

var
  Form1: TForm1;
  cont : integer = 0;
implementation

{$R *.DFM}

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
   cont := cont + 1;
   if cont = 1 then
      begin
         RadioButton1.Checked := true;
         Label2.Caption := inttostr(cont);
      end
   else
      begin
         RadioButton1.Checked := false;
         Label2.Caption := inttostr(cont);
         cont := 0;
      end;

   if RadioButton1.Checked = true then
      Button1.Caption := 'Teste1'
   else
      Button1.Caption := 'Teste2';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Button1.Caption = 'Teste1' then
      begin
         Label1.Caption := timetostr(now);
         RadioButton1.Checked := false;
      end;

   if Button1.Caption = 'Teste2' then
      begin
         Label1.Caption := datetostr(now);
         //
      end;

end;

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...