4 respuestas en este tema

[TiammatMX]

Buen día, compañerit@s del foro...

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:

delphi

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.

[Rolphy Reyes]

Saludos.

Amigo, por lo que se puede apreciar en Lazarus no se usa Action sino CloseAction.

Prueba a cambiar el código.

[jdepaz]

Es correcto en Lazarus/FPC se utiliza la variable CloseAction

delphi

CloseAction:=caFree;

saludos

[TiammatMX]

...por lo que se puede apreciar en Lazarus no se usa Action sino CloseAction...

¡¡¡AAAAHHHHH!!!, sólo que sea por éso..., pruebo y reporto...

[TiammatMX]

Pues sí, la acción es CloseAction...

Cierro el hilo, mi Lazarus y voy a cocinar..., al rato seguiré molestando con otra duda que no es duda...