error en un action

[anubis]

Hola,

Estoy usando lazarus e intento usar éste código:

Código Delphi [-]
procedure TForm1.ACEITESPostError(DataSet: TDataSet; E: EDatabaseError;
  var DataAction: TDataAction);
begin
 {Error in the Post}
  ShowMessage('Error al dar de alta un nuevo registro'+#13+
              'Motivo:'+E.Message);
  Action:=daAbort;
end;

Cuando llega al action, me arroja este error:

Código Delphi [-]
principal.pas(99,29) Error: Incompatible type for arg no. 1: Got "TDataAction", expected "TBasicAction"

El código lo copie tal cual pero por mucho que miro no hay forma.

gracias

Ya está solucionado, cambie action por dataaction. Lo que no sé es si en lazarus hay que hacerlo así.
saludos y gracias

[roman]

Te pasó en Lázarus igual que te habría pasado en delphi. En tu primer intento, Action se refiere a una propiedad del formulario, que no tiene nada que ver con el parámetro del evento DataAction. Action es un objeto de la clase TAction (descendiente de TBasicAction) mientras que DataAction no es más que un valo entero.

// Saludos