(Resolvido) mudar funcao do botao via codigo

[lucas.farias.2008]

tenho um form com um botao que gostaria de mudar a funcao dependendo do form que o chamasse.... como poderia efetuar essa alteracao????

Editado Fevereiro 26, 2008 por lucas.farias.2008

[Erso]

cara faz o seguinte:

você cria varias procedures contendo a variavel sender do tipo TObject (essa variavel sera seu botao, igual a procedure onclick q é criada quando você utiliza o botao! )

criando procedure

procedure p1(sender: TObject);
begin
 //primeira procrdure
 ShowMessage('Ola!');
end;

procedure p2(sender: TObject);
begin
 //segunda procrdure
 ShowMessage('tudo bom??');
end;

nessas procedures você pode colocar suas rotinas ai p fazer essas rotinas se tornarem o onclick do seu botao é so atribuir a procedure ao onclick do botao:

//para procedure p1
Button1.OnClick := p1;

...
//para procedure p2
Button1.OnClick := p2;

falou!!

Editado Fevereiro 26, 2008 por Erso

[Micheus]

Acrescentando um exemplo ao que o colega Erso já mencionou, você pode dar uma olhada neste post que utiliza basicamente a mesma idéia.

Abraços

[lucas.farias.2008]

valeu!!!!! Funcionou perfeitamente... abraço...