Foros Club Delphi - Crear eventos en campos dinámicos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Crear eventos en campos dinámicos (https://www.clubdelphi.com/foros/showthread.php?t=6340)

altp	02-01-2004 17:18:22

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.

marcoszorrilla

02-01-2004 17:29:23

Field.onChange:=MiEvento;

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

Un Saludo.

altp	02-01-2004 17:37:12

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

02-01-2004 17:59:08

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]);

Saludos!

delphi.com.ar

02-01-2004 18:01:24

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	02-01-2004 18:13:58

Gracias delphi.com.ar por responder.

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

Saludos

delphi.com.ar

02-01-2004 18:42:23

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

Saludos!

altp	02-01-2004 19:00:56

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

02-01-2004 19:06:45

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;

Ese procedimiento es un método de una clase!

Saludos!

altp	02-01-2004 19:17:22

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.

La franja horaria es GMT +2. Ahora son las 01:31:34.