Borrar Panel me sale Access Violation

[LiAnTe-]

Hola ecfisa,

el problema que me da con tu codigo cuando lo coloco es que no me borra nada de nada...

Hola Neftali,

el problema que me da con tu codigo es que cuando lo pongo me dice en el ultimo assignen propiedad no validad tipos diferentes...

os pego la creacion de los boton asi, igual podais tener mas ideas pero me estoy volviendo loco intentando solventar el tema del violation y viene por el borrado de los componentes y creacion de nuevo...

Código Delphi [-]
Procedure TGesVentasBar.CrearBotonesPersonal;
var
    QPersonal               : TIBSQL;
    vPersonalCodigo         : Integer;
    vPersonalNombre         : String;
    vBotonAltoPersonal      : Integer;
    vBotonAnchoPersonal     : Integer;
    vIncioBoton             : Integer;
    vBotonPersonal          : TSpeedButton;

Begin
  vBotonAltoPersonal      := 69;
  vBotonAnchoPersonal     := 108;
  vIncioBoton             := 1;

  Btt_AnteriorRegistroPersonal.Enabled := False;
  Btt_SiguienteRegistroPersonal.Enabled := False;

  QPersonal := TibSql.create(NIL);
  QPersonal.Database := BDades.IBDatabase1;
   Try
    QPersonal.SQL.Text := 'Select * from Personal where tienda = ' + '''' +BDades.TConfigTIENDA.Text + '''';
    QPersonal.ExecQuery;

    While QPersonal.Eof = False do
    Begin
      vPersonalNombre := QPersonal.FieldByName('NOMBRE').AsString;
      vPersonalCodigo := QPersonal.FieldByName('CODIGO').AsInteger;

      vBotonPersonal := TSpeedButton.create(self);
      vBotonPersonal.Parent  := Personal;
      vBotonPersonal.Tag     := vPersonalCodigo;
      vBotonPersonal.Caption := vPersonalNombre;
      vBotonPersonal.Height  := vBotonAltoPersonal;
      vBotonPersonal.Width   := vBotonAnchoPersonal;
      vBotonPersonal.Left    := 1;//vBotonAncho + ParentVarCountPersonal.Left;
      vBotonPersonal.Top     := vIncioBoton;
      vBotonPersonal.Enabled := True;
      vBotonPersonal.visible := True;
      vBotonPersonal.Hint    := vPersonalNombre;
      vBotonPersonal.OnClick := vPersonalBotonOnClick;
      vBotonPersonal.Show;

      QPersonal.Next;
      vIncioBoton := vIncioBoton + vBotonAltoPersonal;
    end;
   BDades.IBTransaction1.CommitRetaining;
   finally
    QPersonal.Close;
    FreeandNil(QPersonal);
   end;
end;

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

Empezado por LiAnTe-

el problema que me da con tu codigo es que cuando lo pongo me dice en el ultimo assignen propiedad no validad tipos diferentes...

Ok. Con el código es más sencillo ver el problema.

Cuando creas los botones añade como Owner el contenedor "Personal".

Código Delphi [-]
   ...
   vBotonPersonal := TSpeedButton.create(Personal);
   ...

Y luego para liberarlos puedes usar un código como este

Código Delphi [-]
procedure TGesVentasBar.Button1Click(Sender: TObject);
var
  i:Integer;
  btn:TSpeedButton;
begin
  // recorrer los componentes que hay en "personal"
  for i := (Personal.ComponentCount - 1) downto 0 do begin
    // es un SpeedButton?
    if (Personal.Components[i] is TSpeedButton) then begin
      // Apuntador al componente
      btn := TSpeedButton(Personal.Components[i]);
      // liberar
      btn.Free;
    end;
  end;
end;

[LiAnTe-]

Bien ahora me borra y me crea, pero me sigue dando el acces violation...

te pego el ultimo codigo....

Lo que hace el programa es crear un menu de personas al inicio cuando pulsas en una persona pues borra las personas y pone las opciones de la persona pulsada...

pero al destruir y dibujar de nuevo me va saliendo un Access Violation... y ando muy loco buscando el problema...

Ya agradecerte la ayuda que me estas prestando...

este es el ultimo codigo que se utiliza.... es como un bucle pulso se crea formulario crea personal, pulsas sobre el y destruye botones de personal y crea los nuevo botones de opciones... retrocedes y creas de nuevo las opciones de personal. ( gente ).

Código Delphi [-]
procedure TGesVentasBar.vPersonalBotonOnClick(Sender: TObject);
var
  vVentasOpcionesCodigo : Integer;
  vVentasOpcionesNombre : String;
  vTop                  : Integer;
  vInicio               : Integer;
  QOpcionesPersonal     : TIBSQL;
  vBotonPersonal        : TSpeedButton;

Begin
  vendedor.text := inttostr(Tbutton(sender).tag);
  VendedorExit;
  BorrarPanelPersonal;
  vTop := 1;
  vInicio := 1;
  Btt_AnteriorRegistroPersonal.Enabled := True;
  Btt_SiguienteRegistroPersonal.Enabled := False;

  QOpcionesPersonal := TibSql.create(NIL);
  QOpcionesPersonal.Database := BDades.IBDatabase1;
   Try
    QOpcionesPersonal.SQL.Text := 'Select * from VentasOpciones where tienda = ' + '''' + BDades.TConfigTIENDA.Text + '''';
    QOpcionesPersonal.ExecQuery;

    While QOpcionesPersonal.Eof = False do
     Begin
      vVentasOpcionesCodigo := QOpcionesPersonal.FieldByName('CODIGO').AsInteger;
      vVentasOpcionesNombre := QOpcionesPersonal.FieldByName('NOMBRE').AsString;

      vBotonPersonal := TSpeedButton.create(Personal);
      vBotonPersonal.Parent  := Personal;
      vBotonPersonal.Caption := vVentasOpcionesNombre;
      vBotonPersonal.Height  := 69;
      vBotonPersonal.Width   := 108;
      vBotonPersonal.Left    := vInicio;     // Inicio
      vBotonPersonal.Top     := vTop;     // Altura
      vBotonPersonal.Enabled := True;
      vBotonPersonal.visible := True;
      vBotonPersonal.Tag     := vVentasOpcionesCodigo;
      vBotonPersonal.OnClick := vOpcionesVentasBotonOnClick;
      vBotonPersonal.Show;

      QOpcionesPersonal.Next;
      vTop := vTop + 70;
    end;
   BDades.IBTransaction1.CommitRetaining;
   finally
    QOpcionesPersonal.Close;
    FreeandNil(QOpcionesPersonal);
   end;
end;

no se si sera importante pero el panel de personal esta encima de un componente TPageControl y el panel persona es un TTabSheet.

Saludos.

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

Pues a mi me funciona perfectamente.
He hecho un pequeño ejemplo sacando los datos de un TClientDataset. Revísalo y compara los procedimientos con los que tienes.

Subido al FTP del club.

[LiAnTe-]

Empezado por Neftali

Pues a mi me funciona perfectamente.
He hecho un pequeño ejemplo sacando los datos de un TClientDataset. Revísalo y compara los procedimientos con los que tienes.

Subido al FTP del club.

Me pongo a ello gracias.

[ecfisa]

Hola LiAnTe-

el problema que me da con tu codigo cuando lo coloco es que no me borra nada de nada...

Que extraño, en la prueba que realicé a mi me funcionó perfecto.

Voy a mirar el código que pusiste ahora.



Saludos.

[*Caro*]

Hola Liante, recorre tu contenedor con Controls y sería suficiente asignarle el Parent a tus componentes creados en ejecución (como lo tienes al principio).

Código Delphi [-]
  for i:=Personal.ControlCount -1 downto 0 do
    begin
      if Personal.Controls[i] is TSpeedButton then
        Personal.Controls[i].free;
    end;

Saluditos