Sigo haciendo mis pininos dentro de Lazarus (gratamente sorprendido por su facilidad de uso, por cierto) y "traduciendo" algunas funciones y formas desde las cuales hago la herencia para mis proyectos.
Resulta que tengo ésta función:
procedure TfrmAbl.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin try if FormStyle = fsMDIChild then Action := caFree; <---- ¡¡¡ERROR!!! except //FEOL 20101115 Mensaje de Excepción on E: Exception do Raise Exception.Create( E.Message ); end; end;
Pero me manda éste error en compilado rápido y compilado "normal"...
Unidades Padre/ufrmAbl.pas(33,24) Error: Incompatible type for arg no. 1: Got "TCloseAction", expected "TBasicAction"
control.inc(281,20) Hint: Found declaration: TControl.SetAction(TBasicAction);
Unidades Padre/ufrmAbl.pas(46) Fatal: There were 1 errors compiling module, stopping
¿Es que Lazarus no tiene "caFree", yo lo estoy utilizando mal o algo me está faltando? Por favor, un poco de luz y asesoría será ampliamente agradecida.