Mudar procedure em tempo de execução

Delphi

30/06/2003

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


Simundi

Simundi

Curtidas 0

Respostas

As-mad

As-mad

30/06/2003

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.


GOSTEI 0
POSTAR