Privileged instruction

[Neftali [Germán.Estévez]]

Por favor, utiliza etiquetas cuandos escribas código delphi, de otra forma es bastante incómodo leerlo.

[Neftali [Germán.Estévez]]

¿Has ejecutado paso a paso?
¿Sabes la línea dónde te está saltando el error?

[[Lepe]]

A mí la variable vPersonalCodigo me tiene mosqueado . No sé donde se define.

- Si está en la zona interface de TGesVentasBar no debería dar problemas.
- Si está declarada en otra ventana o unidad... pues puede ser ese el fallo.

Mi sugerencia es quites la primera linea del evento: vBotonOnClick (el primer showMessage), así no debería dar problemas.

[camariere]

Yo creo que el problema está en esta variable....

Código Delphi [-]
    vBotonOnClick   : TNotifyEvent;

¿No debería estar declarado como un procedimiento?

Código Delphi [-]

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure vBotonOnClick(Sender: TObject); //Aquí se declara el evento
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Boton: Tbutton;

implementation

{$R *.DFM}

procedure TForm1.vBotonOnClick(Sender: TObject);
var
  Texto: string;
begin
  texto := (Sender as TButton).caption;
  ShowMessage('Botón <'+texto+'> presionado');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Boton := TButton.create(Form1);
  Boton.Parent := Form1;
  Boton.Caption := 'Hola';
  Boton.Height := 120;
  Boton.Left := 20;
  Boton.Width := 130;
  Boton.Enabled := True;
  Boton.visible := True;
  Boton.OnClick := vBotonOnClick; //se asigna el evento
end;