Mudar procedure em tempo de execu��o

Question

Quando escolher um item no combobox o usu�rio do possa digitar numeros no edit.
Ex.
Esolhe o item 0 (que � Telefone) e o usu�rio so digita numero no edit1
Escolhe o item 1 (que � e-mail) e o usu�rio pode digitar qualquer caracter no edit1

Dese ja agrade�o

Alexandre Simundi - Poa/Rs

As-mad · Answer

no evento onChange dessa combo box vc poderia fazer um tratamento de erro e mudar o evento OnChange do Edit, por exemplo:

procedure AceitaNumeros(Sender: TObject);
procedure AceitaCaracteres(Sender: TObject);

procedure TForm1.ComboBoxChange(Sender: TObject);
begin
if ComboBox.ItemIndex = 0 then
Edit1.OnChange := AceitaNumeros
else
Edit1.OnChange := AceitaCaracteres;
end;

lembrando que para atribuir m�todos dessa forma eles t�m que ser equivalentes, ou seja, os mesmos par�metros.

F�rum Mudar procedure em tempo de execu��o #167082