Radiobutton

[Blackleaf]

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 Junho 12, 2008 por Blackleaf

[Jhonas]

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