Acceso a StatusBar de MainForm

[ManelC]

Hola a tod@s,

Estoy intentando en una aplicación MDI acceder a un TStatusBar desde una ventana hija. Desde la pantalla madre (que es la application.MainForm) se llama a una MdiChild, donde hay un proceso del que quiero mostrar una traza en uno de los panels de la TStatusBar de la madre. La jerarquia es:

Principal

[ManelC]

Perdón. Me he dejado el mensaje a medias ...

La jerarquia es:
Formulario principal (MDI) uses Formulario Hijo (MDI Child)
Formulario Hijo (MDI Child) uses Modulo
El modulo contiene un proceso, cuyas trazas las quiero poner en el TStatusBar de la principal.

Si lo hago mediante (application.mainform.Controls[1] as TStatusBar).Panels[0].Text := '... traza ...';, hay una incompatibilidad TStatusBar y TControl.

Si saben como se deberia hacer les agradeceria la ayuda.

Gracias!
Manel

[[enecumene]]

Empezado por ManelC

... La jerarquia es:

Principal

Hola, ¿No te faltó algo?

Saludos.

[[coso]]

y poniendo

mainform.statusbar1.panel[0] etc... ? con el unit del main en los uses.

[ManelC]

No se si te he entendido bien, pero si:

MDI principal uses MDI Child
MDI Child uses Modulo
Si Modulo uses MDI Principal (no se si te refieres a esto), me sale una referencia circular ...

Manel

[[coso]]

???
no, tu prueba. Los uses de las units no van con 'jerarquia', tu puedes incluir los que quieras

[roman]

Empezado por ManelC

me sale una referencia circular

Eso sucede si cada una hace referencia a la otra desde la sección interface. Para evitarlo, pon una o ambas en la sección implementation.

Código Delphi [-]
unit MDIPrincipal;

interface

uses bla, bla, bla;

...

implementation

uses MDIChild;

...

end.

Código Delphi [-]
unit MDIChild;

interface

uses bla, bla, bla;

...

implementation

uses MDIPrincipal;

...

end.

// Saludos

[ManelC]

Ufff !!! Cierto !!!! Funciona correctamente
Muchisimas gracias a todos !!

Manel