Radiobutton e Procedure

Question

Tem como eu alterar uma procedure apartir de um radiobutton?Estou tentando mas ainda n�o consegui...A procedure � a seguinte[quote:3ad491453b]procedure TForm1.filtro3Click(Sender: TObject);var        ...

Bdexterholland · Answer

Bom, como assim mudar uma a partir de um radiobutton?

Voc� pode mudar a procedure associada a um evento em tempo de execu��o fazendo um

button1.onclick := Button2Click;

onde button2Click seria uma procedure associada ao onclick de outro bot�o.

Com rela��o ao c�digo que voc� mostrou, o delphi gera alguma mensagem de erro? qual?

George_piaulino · Answer

Utilize radio group.Abra�os  :wink:...

Douglass · Answer

Tentei fazer assim:[quote:b8a0e2b34e]procedure TForm1.RadioButton1Click(Sender: TObject);var     filtra1,filtra2,filtra3 : String;begin        DataSource1.Enabled  := True;        DataSource1.DataSet  := IBOTable2;        Filtrar1.Enabled     := True;        filtro1Click.filtra1 := �DS_FABRP = +QuotedStr(�A*�);        filtro1.Caption      := �QT_PECA > 10�;        filtro2.Caption      := �QT_PECA = 5�;        filtro3.Caption      := �CD_PECA = *331�;        filtro4.Caption      := �Voltar a Tabela�;end;[/quote:b8a0e2b34e]E o erro �:[quote:b8a0e2b34e][Error] Unit1.pas(137): Not enough actual parameters[Error] Unit1.pas(137): Missing operator or semicolon[Error] Unit1.pas(138): Operator not applicable to this operand type[Fatal Error] Project1.dpr(5): Could not compile used unit �Unit1.pas�[/quote:b8a0e2b34e]...

Bdexterholland · Answer

o que � esse:[code:1:eb9437a802]filtro1Click.filtra1 := �DS_FABRP = +QuotedStr(�A*�);[/code:1:eb9437a802] * Ele pertence a um objeto de que tipo? * o que esse filtra f� fazendo a�? Se � a vari�vel, voc� pode chama-la direto * acho que mundando essa linha para[code:1:eb9437a802]filtra1 := �DS_FABRP = � + QuotedStr(�A*�);[/code:1:eb9437a802]deve para os erros......

Douglass · Answer

O radio button apenas especifica a tabela que aparece no grid e tamb�m o caption do mainmenu aonde est�o as procedures que filtram a tabela que est� no grid. S� que ao alterar o caption os filtros continuam os mesmo.. sendo assim n�o filtram as tabelas de forma correta, utiliazam o filtro que vem como default.. o que eu quero � alterar esse filtro...

Esse � o primeiro bot�o do mainmenu que esta como filtro:

procedure TForm1.filtro1Click(Sender: TObject); var filtra1 : String; begin filtra1 := �DS_FABRP = �+QuotedStr(�S*�); IBOTable1.Filter := filtra1; IBOTable1.Filtered := true; end;

E denovo o radiobutton:

procedure TForm1.RadioButton1Click(Sender: TObject); var filtra1,filtra2,filtra3 : String; begin DataSource1.Enabled := True; DataSource1.DataSet := IBOTable2; Filtrar1.Enabled := True; filtra1 := �QT_PECA > �+ QuotedStr(�2�); filtro1.Caption := �QT_PECA > 2�; filtro2.Caption := �QT_PECA = 5�; filtro3.Caption := �CD_PECA = *331�; filtro4.Caption := �Voltar a Tabela�; end;

Mas desse jeito continua sem funcionar..
:shock:

F�rum Radiobutton e Procedure #348261