Ver Mensaje Individual
  #1  
Antiguo 04-09-2008
rauros rauros is offline
Miembro
 
Registrado: feb 2008
Ubicación: Alicante - Sax / Sax - Alicante
Posts: 235
Reputación: 17
rauros Va por buen camino
Heredar eventos de un Edit.

Saludos a todos. Estoy creando un TIpEdit, para hacer más fácil escribir ip, y me encuentro con el problema de que no sé heredar el evento OnChange para usarlo. Me gustaría usar ese evento para evitar escribir letras, y otras cosas.

Hasta ahora tengo hecho esto, pero me da un error que más abajo voy a poner:

Código Delphi [-]
Constructor TIpEdit.Crear(Padre: TWinControl;
X: Integer; Y: Integer;
TX: Integer; TY: Integer);
Begin
  inherited;
  With TIpEdit.Create(Padre) do Begin
    Self.OnChange:=Cambiar(Padre); <---- Línea 26
  End;
End;

[Error] EditSoloIp.pas(26): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

No he continuado el constructor porque me falta esa ayuda. Gracias.
Responder Con Cita