Hi, I'm a little stuck with this:

procedure TCustomForm.AssignOnEvents;
  function gdkDeleteEvent( widget: PGtkWidget; event: PGdkEvent; data:
pointer): boolean;
  begin
      writeln('--> on begin gdkDeleteEvent');
      Hide;                                    ------------> bOOm !
      gdkDeleteEvent := true;
      writeln('--> on end gdkDeleteEvent');
  end;
begin
    writeln('--> before custom form assignEvents');

gtk_signal_connect( gtk_object( Control),
'delete_event',
gtk_signal_func( @gdkDeleteEvent),

                        self);

{ inherited AssignOnEvents;}

    writeln('--> after custom form assignEvents');

end;

the Hide; line doesn't want to be executed, I've tryed:

self.Hide;
TControl(data).Hide;

and get the same result:

An unhandled exception occurred at 0805CBA6 :
Access violation

The Hide procedure is not even called, because the first sentence is a writeln(); that is not printed.

I'm doing something wrong ??
Is this suppossed to work ?

Sergio