Crear eventos en campos dinámicos

[altp]

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.

[marcoszorrilla]

Field.onChange:=MiEvento;

MiEvento sería un Procedimiento en donde se haya escrito el código que deseemos ejecutar.

Un Saludo.

[altp]

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

[delphi.com.ar]

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:

procedure MiProcedure([b]Sender: TObject[b]);

Saludos!

[delphi.com.ar]

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!

[altp]

Gracias delphi.com.ar por responder.

Podrías ponerme un ejemplo?
Porque no me sale lo que he hecho.

Saludos

[delphi.com.ar]

Aquí tienes un ejemplo:
http://www.clubdelphi.com/foros/show...&threadid=4795

Saludos!

[altp]

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.

[delphi.com.ar]

No le estas prestando atención a mi segundo mensaje... Fíjate este detalle del ejemplo que te pasé:

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;

Ese procedimiento es un método de una clase!

Saludos!

[altp]

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.