Como saber que objetos tiene Cierto Objeto

[adeszeus]

Bueno ando creando objetos en tiempo de ejecucion, y de manera dinamica cambian ciertas cantidades de objetos, en fin mi duda es la siguiente

Creo un GroupBox, dentro del mismo groupbox creo toolbars y ttoolbutton, hasta hay todo bien, pero dentro de cada groupox creo un objeto Memo,
pero quiero que el toolbutton mande un showmessage del objeto memo incluido dentro del mismo groupbox, y como cada groupbox es independe de si mismo pero contienen los mismo componentes, quisiera saber como identificar por ejemplo memo1, memo2, memo3 y asi de manera automatica, sin tener que escribir por ejemplo

showmessage(memo1.text);

si no de manera automatica solo llamar el evento y el mismo boton identifique que memo es el que se encuentra dentro del groupbox... espero haberme explicado

[adeszeus]

Empezado por adeszeus

Bueno ando creando objetos en tiempo de ejecucion, y de manera dinamica cambian ciertas cantidades de objetos, en fin mi duda es la siguiente

Creo un GroupBox, dentro del mismo groupbox creo toolbars y ttoolbutton, hasta hay todo bien, pero dentro de cada groupox creo un objeto Memo,
pero quiero que el toolbutton mande un showmessage del objeto memo incluido dentro del mismo groupbox, y como cada groupbox es independe de si mismo pero contienen los mismo componentes, quisiera saber como identificar por ejemplo memo1, memo2, memo3 y asi de manera automatica, sin tener que escribir por ejemplo

showmessage(memo1.text);

si no de manera automatica solo llamar el evento y el mismo boton identifique que memo es el que se encuentra dentro del groupbox... espero haberme explicado

Agregando supongamos creo el groupbox1, y este contiene el memo1, y quiero que el toolbutton1 muestre un mensaje con el contenido memo1, pero supongamos creo el groupbox16 y por logica el memo16 y el toolbutton es el toolbutton50, como hacer que me llame el contenido del memo16?

[ecfisa]

Empezado por adeszeus

Agregando supongamos creo el groupbox1, y este contiene el memo1, y quiero que el toolbutton1 muestre un mensaje con el contenido memo1, pero supongamos creo el groupbox16 y por logica el memo16 y el toolbutton es el toolbutton50, como hacer que me llame el contenido del memo16?

Hola adeszeus.

Una posible solución es utilizar una variable, que voy a llamar FGrupCont, que se incremente por cada grupo de componentes que hayas creado. Considerando como grupo todo lo que esté dentro del del GroupBox: ToolBar, ToolButton, Memo, etc.

Todos ellos reciben el valor de esa variable en su propiedad Tag que va a actuar como identificador único del grupo.
Luego de creado el último componente del grupo, la variable FGrupCont incrementa su valor.

Habiendo asignado en la creación al evento OnClick de los TToolButton, el procedimiento ToolButtonClick, entonces ya es sencillo:

Código Delphi [-]
procedure TForm1.ToolButtonClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= ComponentCount - 1 downto 0 do
   if (Components[i] is TMemo) and (Components[i].Tag = (Sender as TToolButton).Tag) then
    ShowMessage((Components[i] as TMemo).Text);
end;

Saludos.

[adeszeus]

he revisado tu mensaje, sin embargo encontre una solucion precisamente usando la propiedad tag del objeto gracias por el apoyo

[*Caro*]

Hola adeszeus, también puedes hacerlo recorriendo solo los componentes del GroupBox respectivo, utilizando el Parent de tu ToolButton:

Código Delphi [-]
   for i:=0 to TGroupBox(ToolButton1.Parent).ControlCount-1 do
    if TGroupBox(ToolButton1.Parent).Controls[i] is TMemo then
      ShowMessage(TMemo(TGroupBox(ToolButton1.Parent).Controls[i]).Text);

Si asocias el mismo evento a los demas ToolButton de los otros GroupBox, entonces en ves de ToolButton1 utilizas el parámetro Sender.

Saluditos

[adeszeus]

en si mi aplicacion de inicio solo tiene un imagelist un boton y un listbox, apartir de el llenado de este listbox ( de una base de datos ) sera la cantidad de objetos a crear entonces no tengo numeros de objetos definidos, sin embargo ciertos patrones que puedo continuar y pues solo juego con objetos que segun mis calculos pueden ser llamados, les dare la respuesta de como solucione

Código Delphi [-]
procedure TForm1.mensaje(Sender: TObject);
var
  mm: TMemo;
begin
mm:=TMemo(FindComponent('memo'+inttostr(TToolButton(Sender).Tag)));
if Assigned(mm) then
ShowMessage(mm.Text);
end;

[ecfisa]

Hola de nuevo.

Realmente me gustó mucho la propuesta de Caro. Sabía que era más elegante y eficiente, pero no podía conseguir el TGroupBox directamente del TToolButton, ya que en la creación, hice que el parent de los TToolButtons fuera el TToolBar.
Así que que sin ser una corrección del código original, hice un pequeño ajuste para que funcione en mi caso.

Código Delphi [-]
procedure TForm1.ToolButtonClick(Sender: TObject);
var
  i : Integer;
begin
  with TGroupBox(TToolBar(TButton(Sender).Parent).Parent) do
   for i:= ComponentCount-1 downto 0 do
     if (Components[i] is TMemo) then
       ShowMessage(TMemo(Components[i]).Text);
end;

Saludos.

[adeszeus]

Muy buenas soluciones hahahaha, sin embargo jamas supe que opinaron de la mia y espero hechar mano de las suyas en un futuro muy proximo ( al amanecer) hahahaha muchas gracias por su apoyo

[ecfisa]

Empezado por adeszeus

sin embargo jamas supe que opinaron de la mia

Aunque básicamente hacen lo mismo, me gusta más que la mia...

Saludos.

[adeszeus]

Pues creo que todo es cuestion de experiencia propia y pues mas que nada el pensar e imaginar las cosas de una perspectiva diferente, ustedes recorren los objetos uno a uno dentro de cada contenedor y al final resolvieron mi duda y me dieron apertura a mas opciones. Yo pues leyendo y buscando encontre esa opcion que es similar, busca el objeto, lo localiza y simplemente lo llamo por nombre.... en fin un problema y como es visto 3 soluciones diferentes..

Gracias a ambos por su atención y apoyo.