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.
