[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