Asignar a tbitbtn evento en tiempo de ejecucion

[richy08]

ya encontre el detalle el codigo queda asi

Código Delphi [-]
procedure TFrm_Main.DoOnClick(Sender: TObject);
var
i, seleccion : integer;
botonC : tbitbtn;
left, top: integer;
begin
  if Sender is TBitBtn then                                                           
  begin
    with TBitBtn(Sender) do
    begin
       Qry_Categoria.Close;
       Qry_Categoria.ParamByName('idlinea').Value:=tag;
       Qry_Categoria.Open;
    end;

    
       Left:=15;
       top:=16;

       i:=0;
       Seleccion:=0;
       Seleccion:=Qry_Categoria.RecordCount;

       While ido
       begin
          botonC := TBitBtn.Create(nil);
          botonC.Name:='btbc'+inttostr(Qry_Line.fieldbyname('idlinea').Value);
          botonC.Hint:=Qry_Categoria.fieldbyname('descripcion').Value;
          botonC.Left:= left;
          botonC.Top:=top;
          botonC.Width:=81;
          botonC.Height:=57;
          botonC.Parent:=Categoria;
      //    boton.OnClick:=;

          if FileExists('C:\Proyectos Delphi\Zibarita TouchScreen\Image\'+inttostr(Qry_Categoria.fieldbyname('idcat').Value)+'.bmp') then
          begin
            botonC.Glyph.LoadFromFile('C:\Proyectos Delphi\Zibarita TouchScreen\Image\'+inttostr(Qry_Categoria.fieldbyname('idcat').Value)+'.bmp');
            botonC.Caption:='';
          end
          else
            botonC.Caption:=Qry_Categoria.fieldbyname('idcat').Value;

         Qry_Categoria.next;
         top:=top+62;
         i:=i+1;
       end;
  end;
end;

saludos

[[maeyanes]]

Hola...

No se exactamente que deseas hacer, lo que si te puedo decir es que tu código está propenso a que tengas pérdidas de memoria (memory leak) al momento de cerrar la aplicación.

Si no vas a guardar referencias a los botones fuera del método DoOnClick, te recomiendo que uses TBitBtn.Create(Self), para que al cerrar el formulario este destruya todos esos botones al momento de destruirse.

Otro error que encuentro es que estás usando algunas variables con el mismo nombre de propiedades (Top, Left) y esto puede producirte varios errores lógicos.


Saludos...

[richy08]

Empezado por maeyanes

Hola...

No se exactamente que deseas hacer, lo que si te puedo decir es que tu código está propenso a que tengas pérdidas de memoria (memory leak) al momento de cerrar la aplicación.

Si no vas a guardar referencias a los botones fuera del método DoOnClick, te recomiendo que uses TBitBtn.Create(Self), para que al cerrar el formulario este destruya todos esos botones al momento de destruirse.

Otro error que encuentro es que estás usando algunas variables con el mismo nombre de propiedades (Top, Left) y esto puede producirte varios errores lógicos.


Saludos...

Hola maeyanes lo que intento hacer es una aplicacion que sirva para vender productos de mostrador pero en un touch screen, lo de crear botones es por la estructura que tienen la tablas en la bd, los primeros botones que muestros son los de la linea que a su ves es padre de categoria y esta es padre de subcategoria hasta llegar a los productos.

ok usare TBitBtn.Create(Self) no entiendo muy bien el por que, es la primera ves que me veo en la necesidad de crear componentes en tiempo de ejecucion, y sobre lo del nombre de las variables segun yo, si las declaro dentro de un procedure el valor solo se afecta dentro del mismo procedure no??, corrigeme por favor si dije alguna incoherencia


saludos y mil gracias por tus consejos


perdon ya entendi lo de las variables es mejor ponerles otro nombre, que no se parezca a propiedades de los objetos, otra pregunta crees que este codigo me genere algun problema lo uso cada que presiono un boton para limpiar el panel e incluir los nuevos botones

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

[[maeyanes]]

Hola...

Por lo poco que puedo ver de tu código, y sin saber que haces fuera de lo que nos enseñado, te puedo decir que tu aplicación corre peligro de consumir mucha memoria y luego de un buen tiempo de uso puede fallar con errores del tipo Out of Memory. Aparte, si no te consumes toda la memoria, al finalizar la aplicación esta no va a liberar toda la memoria que consumió. Ahora, el por que de esto que te comento:

Veo que creas varios TBitBtn, todos sin un owner (TBitBtn.Create(nil)), y estos los asignas a variables declaradas dentro del método donde se crean, esto es, esas variables dejarán de existir una vez salgas de ese método, haciendo que no haya forma que puedas referenciar esos TBitBtn más adelante y como estos no tienen dueño, al finalizar la aplicación tampoco se destruirán. Aunado a esto, cada que presionas un botón ya creado, creas una serie de botones usando la misma técnica y en ningún momento veo que elimines los botones creados anteriormente.

Una forma de resolver esto es asignándole un dueño a cada TBitBtn que se cree, es por eso que te comenté el uso de Self, que en el ámbito donde lo vas a usar, sería el formulario donde estás creando esos botones. Al ser el formulario el dueño de esos botones, al destruirse este, primero destruye todos los componentes que le pertenecen.

La recomendación que yo te doy, es usar algún tipo de lista para guardar las referencias a los botones que vayas creando y así los puedas eliminar apenas los dejes de usar. Aquí algo de código para aclarar la idea:

Código Delphi [-]
TMyForm = class(TForm)
  // Declaraciones de componentes en tiempo de diseño
private
  FBtnPadre: TComponentList;
  FBtnCategoria: TComponentList;
  FBtnSubCategoria: TComponentList;
  FBtnProducto: TComponentList;
public
  // ...
end;

implementation

// Evento OnCreate y OnDestroy del formulario:
procedure TMyForm.FormCreate(Sender: TObject);
begin
  FBtnPadre := TComponentList.Create;
  FBtnCategoria := TComponentList.Create;
  FBtnSubCategoria := TComponentList.Create;
  FBtnProducto := TComponentList.Create;
  // Algún otro código de inicialización
end;

procedure TMyForm.FormDestroy(Sender: TObject);
begin
  // Algún otro código de finalización
  FBtnPadre.Free;
  FBtnCategoria.Free;
  FBtnSubCategoria.Free;
  FBtnProducto.Free
end;

// Método donde creas los botones padre:
  // ...
  Btn := TBitBtn.Create(nil); // no se usa owner ya que la lista se encargará de esto
  // Asignamos propiedades
  FBtnPadre.Add(Btn);
// ...

// Método OnClick de los botones padre:
  // Primero verificamos si ya existen botones de categorías y eliminamos los que ya existen
  if FBtnCategoria.Count > 0 then
    FBtnCategoria.Clear;
  // Query que lee categorías...
  Btn := TBitBtn.Create(nil);
  // Asignamos propiedades
  FBtnCategoria.Add(Btn);
// ...

// Método OnClick de los botones de categorías:
  // Primero verificamos si ya existen botones de subcategorías
  if FBtnSubCategoria.Count > 0 then
    FBtnSubCategoria.Clear;
  // Query que lee subcategorias
  Btn := TBitBtn.Create(nil);
  // Asignamos propiedades
  FBtnSubCategoria.Add(Btn);
// ...

Ya con este código te debes de dar una idea de como hacer mejor las cosas...


Saludos...

[richy08]

mil gracias maeyanes por la explicacion, si estaba un poco perdido y no estaba viendo todos los errores de memoria que estaba generando , y como este programa correra en un touch screen con poca memoria seria todo un lio y en pocas horas de usarlo seguro me llamarian para ver el por que del error

saludos.