Linha de código

[Marcelo Ribamar 0]

Pessoal,Como posso disparar a função de um botão via programação,?

[Maikel Scheid 1]

Ola MarceloVocê tem um botão que ao ser clicado executa uma rotina, mas você quer executar este botão a partir de um clique em outro botão??Por acaso seria assim, no evento onClick do button2:Button1.Click;Qualquer coisa, post ai denovo, e explique melhor o que você quer fazer...Att

[marcio.theis 3]

Você precisa chamar o evento daquele botão com o código e passar um sender, algo do tipo:

 

BitBtn1Click(Sender);

Ficando:

 

procedure TForm1.BitBtn2Click(Sender: TObject);beginBitBtn1Click(Sender);end;

[Marcelo Ribamar 0]

Você precisa chamar o evento daquele botão com o código e passar um sender, algo do tipo:

BitBtn1Click(Sender);

Ficando:

procedure TForm1.BitBtn2Click(Sender: TObject);beginBitBtn1Click(Sender);end;

O Que precisso na realidade é que toda vez que um das 8 tabelas sofrerem alteração, após o oncalcfield, executar uma grande lista de calculos e atualizações que está finculado a um botão "Atualizar". e não posso estar vinculando a um segundo botão.

[marcio.theis 3]

O que poderia, é criar uma procedure com este calculo, e chamar a procedure, o que ficaria mais correto...

[vagner.net 0]

você pode chamar o BOTAO_ATUALIZAR.onClick(self); no oncalcfield da Tabela!

[Marcelo Ribamar 0]

Como faço uma procedure?

[vagner.net 0]

Assim:

 

Primeiro você declara ela antes da área de implementação:

 

procedure NOME_DA_PROCEDURE(VARIAVEL1: tipo_da_variavel; VARIAVEL2: tipo_da_variavel);

Depois você constroi ela na área de implementação:

 

procedure NOME_DA_PROCEDURE(VARIAVEL1: tipo_da_variavel; VARIAVEL2: tipo_da_variavel);begin	<EXECUTA A SUA ROTINA>end;

E por último, você chama a PROCEDURE:

 

NOME_DA_PROCEDURE(VALOR_DA_VARIAVEL1, VALOR_DA_VARIAVEL2);

OK..!!?? T+...

[Marcelo Ribamar 0]

Só uma perguntinha! tenho que definir todas as variáveis?são aproximadamente 18 variáveis.

[vagner.net 0]

Se o valor das variáveis da execução com o Botão for diferente durante a execução ONCALCFIELD, você vai ter que passar todas elas como parâmetros.

 

Se não for mudar você pode utilizar constantes ou variavel locais da procedure, dessa forma você só declara na área entre a declaração da função e o BEGIN:

 

procedure NOME_DA_PROCEDURE(VARIAVEL1: tipo_da_variavel; VARIAVEL2: tipo_da_variavel);<DECLARAÇÃO_DE_VARIÁVEIS>begin

OK..!!?? T+...

[Marcelo Ribamar 0]

Encotrei um erro = [Error] fPeca.pas(1372): Undeclared identifier: 'EconMP' , porém EconMP é o nome de DBLookComboBox. que está assim:procedure Atualiza(EcoMP:String; EcoMO:String; vSubMP:Real; vScrapMP:Real; vVlScrapMP:Real; vSubCP:Real; vScrapCP:Real; vVlScrapCP:Real; vSubTT:Real; vScrapTT:Real; vVlScrapTT:Real; vSubPC:Real; vScrapPC:Real; vVlScrapPC:Real; vSubEM:Real; vScrapEM:Real; vVlScrapEM:Real);begin if (EconMP.Text = '') or (EconMP.Text = '1/1900') then EcoMP := Principal.DSPecas.DataSet.FieldByName('Economics').AsString else EcoMP := EconMP.Text;o Que faço agora?

[Marcelo Ribamar 0]

Galera descobri o problema, não havia definido o form que iria pegas as informações.valeu pela força..