10 respuestas en este tema

[TiammatMX]

Jóvenes delphineros, buen día/tarde/noche (según aplique)

Le platico mi problemita. Tengo una serie de TPanel's que contienen 'x' cantidad de componentes, los cuales a partir de una selección en otra parte de la pantalla, deben mostrarse/esconderse. Yo tengo éste pequeño codiguito:

delphi

var
   sNombrePanel: string;
begin
   sNombrePanel := 'pnlCap'+(Trim(IntToStr(iNumero+1)));
   Muestra(iNumero, (sNombrePanel as TPanel));
.
.
.
.
   Esconde(iNumero, (sNombrePanel as TPanel));
.
.
.
.
end;

El problema es que al tener el nombre del panel y "castearlo" para que lo envíe como parámetro a éstos dos procedimientos,  me marca:

[Error] frmHistoriaClinica.pas(178): Operator not applicable to this operand type

¿Alguna idea de cómo solucionar ésto?

P. S.: Los procedimientos tienen éste llamado con sus parámetros.

delphi

procedure Esconde(iActual:Integer; pPanel:TPanel);

delphi

procedure Muestra(iActual:Integer; pPanel:TPanel);

[Fenareth]

Yo pensaría en un ciclo que recorra los componentes del formulario y que cuando encuentre un TPanel compare el nombre para saber si es el que se va a ocultar o mostrar...

sNombrePanel es un String y no puede ser "casteado" como un TPanel....

Saludox !

[Delphius]

Además de la observación que ha hecho Fena mi duda es ¿Para que requieres de dos parámetros en tus procedimientos Muestra() y Esconde()?
Porque si en el nombre se encuentra el número entonces es posible asociar ya sea el número con el nombre, o a la inversa, dado el nombre el número. Es decir, hay una correlación entre ambos:

1 <-> pnlCap1
2 <-> pnlCap2
N <-> pnlCapN

Entonces los procedimientos requerirían de tan sólo uno de los parámetros, el número o el nombre.
Dado uno podemos saber el otro.

Luego, basta con emplear FinComponent para encontrar justamente el TPanel dado por el nombre.

Saludos,

[Fenareth]

Se me acaba de ocurrir de repente... y si haces uso de la propiedad tag del TPanel ???... No sé, a lo mejor te ayuda a controlarlos un poco mejor

Saludox !

[Delphius]

Se me acaba de ocurrir de repente... y si haces uso de la propiedad tag del TPanel ???... No sé, a lo mejor te ayuda a controlarlos un poco mejor

Saludox !

Tag, esa propiedad tan... comodín  que nos resulta incomprendida y olvidadiza. Quien lo diría ¿no?

Vamos optimizando las cosas.

Saludos,

[Fenareth]

Tá bien pues no lo usen... pobrecito, siempre tan menospreciado 

Saludox !

[Delphius]

Tá bien pues no lo usen... pobrecito, siempre tan menospreciado 

Saludox !

Creo que no se me entendió  ... lo que buscada decir fue "Cómo no se me ocurrió antes lo del Tag. Hombre, que lo tengo más olvidado y no le saco provecho al pobre"

Saludos,

[bigleaguer]

Al igual que te sugieren los compañeros, puedes usar la propiedad Tag de los paneles, pero si insistes en que tiene que ser por nombre tal vez este código te ayude un poco:

delphi

sNombrePanel := 'pnlCap'+(Trim(IntToStr(iNumero+1)));
TPanel(Self.FindComponent(sNombrePanel)).Visible := False;

Recuerda siempre verificar que el objecto exista antes de acceder a su propiedad para evitar AV, por ejm:

delphi

sNombrePanel := 'pnlCap'+(Trim(IntToStr(iNumero+1)));
if Assigned(Self.FindComponent(sNombrePanel)) then
  TPanel(Self.FindComponent(sNombrePanel)).Visible := False;

[Fenareth]

Tá bien pues no lo usen... pobrecito, siempre tan menospreciado 

Saludox !

Creo que no se me entendió  ... lo que buscada decir fue "Cómo no se me ocurrió antes lo del Tag. Hombre, que lo tengo más olvidado y no le saco provecho al pobre"

Saludos,

No pasa nada amigo... el exceso de trabajo ya me está afectando...



Lo bueno es la multiplicidad de opciones que se nos vinieron a la mente 

Saludox !

[TiammatMX]

Se me acaba de ocurrir de repente... y si haces uso de la propiedad tag del TPanel ???... No sé, a lo mejor te ayuda a controlarlos un poco mejor

Saludox !

De hecho, como parte de los procedimientos ésos, utilizo Tag para contener el número de componentes que contiene cada panel..., soy guarín pero me fijo...

Al igual que te sugieren los compañeros, puedes usar la propiedad Tag de los paneles, pero si insistes en que tiene que ser por nombre tal vez este código te ayude un poco:

delphi

sNombrePanel := 'pnlCap'+(Trim(IntToStr(iNumero+1)));
TPanel(Self.FindComponent(sNombrePanel)).Visible := False;

Recuerda siempre verificar que el objecto exista antes de acceder a su propiedad para evitar AV, por ejm:

delphi

sNombrePanel := 'pnlCap'+(Trim(IntToStr(iNumero+1)));
if Assigned(Self.FindComponent(sNombrePanel)) then
  TPanel(Self.FindComponent(sNombrePanel)).Visible := False;

Una propuesta muy interesante que probaré inmediatamente...

[memofer]

Podrias poner de favor todo tu codigo completo, para ver de que manera estas trabajando esa parte de utilizar o manera el nombre de un objeto con el FindComponent.
Gracias