obtener propiedades de component padre

[Caroso]

hola amigos yo de nuevo por aqui con otra consulta..
alguno sabe como se puede obtener cualquier propiedad de un control padre...
EJ:
dentro de un panel se encuentra un boton... y que al presionar sobre el boton se muestre un mensaje con el caption del panel...

Código Delphi [-]
Showmessage(Button1.parent.caption);

al intentar hacer algo así... sale un error de que no se puede obtener la información del TObject... porque la propiedad es privada... algo asi...

lo quiero utilizar porque creo varios panel en tiempo de ejecución y necesito saber el caption del panel sobre el cual presiono un botton...

si no se entiende la idea disulpen... se las vuelvo a explicar...

Saludos

[ecfisa]

Hola Caroso.

Ejemplo:

Código Delphi [-]
procedure TForm1.btnDelPanelClick(Sender: TObject);
begin
  with Sender as TButton do
    if Parent is TPanel then  // (*)
      ShowMessage(TPanel(Parent).Caption)
end;

(*) Esta línea no es estrictamente necesaria si sabes positivamente que el parent del botón es un TPanel, pero siempre es mejor asegurar el tipo antes de realizar el moldeo.

Saludos