FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Crear eventos en campos dinámicos
Buenas.
Mi problema es que no sé como crear eventos, por ejemplo el ONCHANGE en un campo de la base de datos, el campo es creado dinámicamente. Yo tengo lo siguiente: var Field : TField; begin ... ... Field.OnChange(Field); ... ... end; Cómo hago para crearme el procedimiento? Cualquier ayuda será de agradecer. Saludos. |
#2
|
||||
|
||||
Field.onChange:=MiEvento;
MiEvento sería un Procedimiento en donde se haya escrito el código que deseemos ejecutar. Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
Gracias por la respuesta pero ya lo había hecho antes.
Vamos a ver, si pongo lo que dices: Field.Onchange := MiEvento; Luego me defino: procedure MiEvento; begin ... end; Me da error. El error es: method pointer and regular procedure Saludos |
#4
|
||||
|
||||
El procedimiento que quieras asignar a un evento, tiene que ser del mismo tipo que el evento, digamos que tiene que tener el mismo juego de parámetros. Suponiendo que tu evento OnChange sea del Tipo TNotifyEvent, el procedimiento deberá ser similar a:
Código:
procedure MiProcedure([b]Sender: TObject[b]);
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
||||
|
||||
Recién me acabo de dar cuenta del mensaje de error que has posteado, y esto indica que estas asignando un evento a un procedimiento plano, no un procedimiento de una clase (Método). Esto no es natural de Delphi, y el procedimiento al que apunta un evento debe ser del tipo "procedure of object".
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#6
|
|||
|
|||
Gracias delphi.com.ar por responder.
Podrías ponerme un ejemplo? Porque no me sale lo que he hecho. Saludos |
#7
|
||||
|
||||
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#8
|
|||
|
|||
Perdona pero eso es lo que he estado probando todo el rato.
Me da el error: method pointer and regular procedure Te comento, estoy en una unit donde defino campos y a esos campos le quiero añadir el método onchange. Luego en otra unit definirme lo que quiero que haga el método en ese momento. El ejemplo al que me enviaste es de tipo (Sender : TObject) pero lo que quiero es de tipo (Sender : TField) a lo mejor tiene eso algo que ver. A ver si puedes seguir ayudandome. Gracias y saludos. |
#9
|
||||
|
||||
No le estas prestando atención a mi segundo mensaje... Fíjate este detalle del ejemplo que te pasé:
Código:
procedure TForm1.OnButtonClick(Sender: TObject); begin ShowMessage('Click!'); end; procedure TForm1.FormCreate(Sender: TObject); begin with TButton.Create(Self) do begin Parent := Self; Caption := 'Botón'; OnClick := OnButtonClick; end; end; Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#10
|
|||
|
|||
Gracias delphi.com.ar
Ya está. Estaba obcecado con no se qué y nada. Menos mal que me lo has puesto en rojo que si no te estoy dando la vara hasta mañana, porque tengo la cabeza todavía en las fiestas. Saludos, Gracias y Feliz Año. Ya volveré con otras preguntillas. |
|
|
|