Proyecto con estructura dinámica (creación de botones)

[CORBATIN]

Hola a todos, pues tal y como dice el titulo, tengo que crear un proyecto el cuál una de las pantallas principales estaría formada por botones dentro de un Scrollbar. Estos botones suponen el número de productos que existen. Así que la creación de estos botones a partir de los básicos deben ser dinámicos, es decir, según necesidades. Así como el borrado de los mismos por productos que vayan desapareciendo. En primer lugar se me había ocurrido crear un montón de botones y luego según necesidades, poner la propiedad visible a true o no según haga falta. No sé si este es el método correcto para esto.

En fin, lo que pido es una ayuda o guía, sobre como crear este proyecto, es decir, la filosofía para programarlo. Tener en cuenta, que cada vez que se cree un botón tengo que asociarle lo que tiene que hacer al pulsarlo, por ejemplo, no es lo mismo pulsar sobre un botón que ponga coca-cola que otro que ponga capuchino.

En principio esto es lo que hay para iniciar el foro e ir recogiendo opiniones de todos, gracias por vuestra cooperación.

POSDATA: Solo tengo internet en el trabajo, así que hasta mañana al medidía no puedo volver a ver este hilo. Lo aviso para que no se piense que no respondo a posibles cuestiones que se hagan.

[jachguate]

Empezado por CORBATIN

una de las pantallas principales estaría formada por botones dentro de un Scrollbar.

Voy a suponer que esto no es cierto... Quizas dentro de un ScrollBox... pero dentro de un ScrollBar, no lo creo.

Empezado por CORBATIN

se me había ocurrido crear un montón de botones y luego según necesidades, poner la propiedad visible a true o no según haga falta.

Esto limitará el máximo número de productos al máximo número de botones puestos en tiempo de diseño, lo cual puede convertirse en una grave limitación.

Empezado por CORBATIN

cada vez que se cree un botón tengo que asociarle lo que tiene que hacer al pulsarlo, por ejemplo, no es lo mismo pulsar sobre un botón que ponga coca-cola que otro que ponga capuchino.

Claro, cada botón deberá tener una referencia al producto que corresponde, y un método genéroco que haga el trabajo del botón, valiendose de esa referencia que será el que se asocie a este.

Al final, no veo cual es tu inconveniente puntual en el asunto.... asi que te dire lo que se me ocurre a mi para enfrentarlo:

En lo referente a los botones, podes derivarte una nueva clase de botón, que tenga el código del artículo. Algo como:

type 

TArtButton = Class(TButton)
  private
    FCodigoProducto : String;
  public
    Property CodigoProducto : String read FCodigoProducto write FCodigoProducto;
  End;

Luego en tu forma, un método genérico para procesar lo que haya que hacer al pulsar el botón...

  Procedure Form1GenericBotonClick(Sender : TObject);
  Begin
    if (sender is TArtButton) Then
      ProcesarPedido((Sender As TArtButton).CodigoProducto);
    else
      ShowMessage('Error');
  End;

y al crear los botones, asociar a su evento OnClick el Form1GenericBotonClick.

Estoy asumiendo que hay un método o procedimiento llamado ProcesarPedido que recibe el código del artículo.

Creo que con estas ideas ya tenes suficiente para empezar... no??

Hasta luego.

[roman]

Pues¿ cuál es la duda?

Si lo quieres es simplemente una especie de maquina vendedora pues simplemente insertas en tu formulario tantos botones como deseas y en el evento OnClick correspondiente "despachas" el producto asociado al botón.

Cuando se acabe un producto inhabilitas u ocultas su botón y cuando se vuelva a surtir el producto habilitas nuevamente el botón.

// Saludos

[CORBATIN]

Gracias por vuestra ayuda, pero en realidad no existe ningún procedimiento, es decir, simplemente me han propuesto el proyecto, por lo que aún no había ni empezado con él. El hecho de escribir este mensaje es para poder recoger ideas sobre el tema, aunque la duda se centraba más bien, sobre la idea de crear y destruir botones en tiempo de ejecución. Por ello tengo que tener en cuenta, que si lo creo/destruyo en tiempo de ejecución, pues tengo que guardar en algún sitio cuáles son los botones que tengo que mostrar y su código correspondiente o en su defecto, sus eventos asociados. Por ello la idea que me das Roman, pues no me vale, sería demasiado estático.

Desde luego la idea de jachguate es perfecta, crear una nueva clase de botón con una propiedad de código de producto asociado y sobre ese código trabajar, es genial.

Ahora os explico cuál sería la filosofía a seguir según yo, así podemos debatir el tema con algo más de participaciòn:

En principio, se me había ocurrido al iniciar por primera vez el programa, recorrer la tabla de productos de forma ordenada por su codigo de producto (para que los botones siempre tengan el mismo orden), ir creando los botones por cada producto y añadirles a la nueva propiedad codproducto el código de producto leído de la BD, además de su evento onclick generico (como apuntaba antes jachguate). Guardar la cantidad de botones y el valor de su propiedad codproducto en un archivo .ini, y cada vez que tenga que abrir ese form, leer del archivo .ini para mostrar los botones (creo que leer del .ini sería más rápido que leer cada vez de la BD, sobre todo si esta en red).

Cuando el usuario quiera crear/destruir un nuevo botón, lo único que tendría que hacer es volver a recorrer la tabla de productos de forma ordenada, crear los que correspondan y volver a grabar los datos en el archivo .ini.

DUDA:
En el caso de que esos nuevos botones lleven un gráfico, mostraría un dialogo de buscar archivos y lo insertaría al botón el gráfico elegido, pero ¿que pasaría con los gráficos de los botones que existían antes? ¿de dónde los saco ahora?

POSIBLE SOLUCION :
Para solucionar el problema anterior, también se me ha ocurrido crear un nuevo botón al mismo tiempo que se confirma la creación de un nuevo producto.

Solo quedar decir que cada vez que se cree un botón, tendría que tener grabado también en un archivo .ini, la posición del último botón, es decir, los valores left y top, para poder colocar correctamente el nuevo botón.
Por último os agradecería que escribieseis el código de alguna idea para crear esos botones de forma dinámica.

Bueno, esto más o menos lo que yo haría. Espero haber suministrado suficiente información para poder seguir debatiendo este tema.
Os doy las gracias por adelantado.

OBSERVACIÓN :
Con respecto a la nueva clase de botón, tal vez también se podría usar la propiedad tag para escribir aquí el código de producto y luego cambiarlo a integer si fuese el caso con la respectiva función.

[jachguate]

Empezado por CORBATIN

Ahora os explico cuál sería la filosofía a seguir según yo, así podemos debatir el tema con algo más de participaciòn:

Dado que no venis con dudas puntuales, no esperes una participación masiva. Se supone que este es el trabajo de un analista, y nadie va a querer hacerlo gratis...

Empezado por CORBATIN

Guardar la cantidad de botones y el valor de su propiedad codproducto en un archivo .ini, y cada vez que tenga que abrir ese form, leer del archivo .ini para mostrar los botones (creo que leer del .ini sería más rápido que leer cada vez de la BD, sobre todo si esta en red).

Y que pasa si en el otro puesto han añadido/borrado artículos?? yo creo que debes leer siempre de la bd.

Empezado por CORBATIN

En el caso de que esos nuevos botones lleven un gráfico

Si ya tenes una base de datos, porque no metes alli también los gráficos??

Hasta luego.

[ramiretor]

Hola foro:
La idea de Juan Antonio me parece muy buena, me parece tambien que la duda del compañero es como le hago para crear los botones en tiempo de ejecución, lo que tienes que hacer es una rutina que tenga como variable (esto pienso yo pero puedo haber otras recomendaciones) un arreglo de botones, la rutina de creación sería algo como:

procedure TForm1.FormCreate(Sender: TObject);
var
Botones: Array[1..100] of TButton;
begin

   Botones[1] := TButton.Create(self);

   with Botones[1] do
   begin
      Left := 56;
      Top := 10;
      Width := 75;
      Height := 25;
      Parent := Self;
      Visible := True;
      Caption := 'Creado 1';
   end;

   Botones[2] := TButton.Create(self);

   with Botones[2] do
   begin
      Left := 56;
      Top := 350;
      Width := 75;
      Height := 25;
      Parent := Self;
      Visible := True;
      Caption := 'Creado 2';

   end;

que fue hecha para la clase TButton, puedes usar otra clase como la que ya te recomendaron.

Saludos y espero te sirva

[CORBATIN]

No pido que nadie me haga un análisis del proyecto, tan solo estoy sugeriendo opiniones sobre lo que pienso hacer, siento que sea así como lo has entendido.

Por último, un ejemplo de código "normal y corriente" para crear botones en tiempo de ejecución, gracias.

[CORBATIN]

ejemplo código para crear botones en tiempo de ejecución

Quería decir que si alguién desinteresadamente quiere decirme o darme un ejemplo de crear botones en tiempo de ejecución, gracias de nuevo.

[roman]

Empezado por CORBATIN

Quería decir que si alguién desinteresadamente quiere decirme o darme un ejemplo de crear botones en tiempo de ejecución, gracias de nuevo.

Pues es precisamente lo que te dio ramiretor

[CORBATIN]

Lo siento, por lo que se ve mientras yo escribía mi mensaje tú también lo hacías, gracias por tú ayuda, un saludo.

[jachguate]

Empezado por ramiretor

lo que tienes que hacer es una rutina que tenga como variable (esto pienso yo pero puedo haber otras recomendaciones) un arreglo de botones,

El problema con este tipo de implementación, es que siempre habria un máximo teórico predefinido para el número de botones. Podrias usar la característica de arreglos abiertos de delphi, declararndo la variable simplemente como array of, y usando setlength para establecer su tamaño en tiempo de ejecución.

El punto, es que ya tenes un arreglo de componentes ligado a la forma, que perfectamente te puede servir para hacer cualquier recorrido. Sinceramente creo que el arreglo de botones no es necesario... pero esto es cuestión de gustos... y en gustos se rompen géneros...

Hasta luego.

[jachguate]

Empezado por CORBATIN

No pido que nadie me haga un análisis del proyecto, tan solo estoy sugeriendo opiniones sobre lo que pienso hacer, siento que sea así como lo has entendido.

Pues quizas no nos pongamos de acuerdo en este punto; pero de cualquier forma he sido de los (pocos) que ha contrubuido con vos, como has dicho en otro hilo: desinteresadamente.

Hasta luego

[CORBATIN]

Gracias a todos por vuestra colaboración, creo que ya tengo suficiente para empezar con el proyecto, en caso de nuevas dudas, os volveré a consultar, saludos .