[lazarus] suppossed to work ?

Sergio A. Kessler sak at perio.unlp.edu.ar
Fri May 28 15:55:11 EDT 1999



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






More information about the Lazarus mailing list