Ayuda con findcomponent!

[roman]

A ver si algo como esto:

Código Delphi [-]
if comp is TControl then
  TControl(comp).Top := 0;

// Saludos

[b3nshi]

Muchas Gracias por la respuesta Roman... pero... mmm... veamos...
te explico... lo de recien fue un ejemplo... en realidad lo q estoy queriendo hacer es cambiar varias propiedades en comun q tienen estos objetos, como ser top, left y weight...

Entonces si hago esto, por cada tipo de objeto q se me presente tengo q volver a escribir todas las propiedades... onda algo asi:

Código Delphi [-]
if comp is tedit then
   begin
     with tedit(comp) do
         begin
              top:=
              height:=
              left:=
              weight:=
         end;
    end;  
 
if comp is tlabel then
   begin
     with tlabel(comp) do
         begin
              top:=
              height:=
              left:=
              weight:=
         end;
    end;
{y asi con cada tipo de componente solo q estaria repitiendo las propiedades}

y eso es lo q quiero evitar... tener q escribir muchas veces el mismo codigo... y la verdad q no se me ocurre como hacerlo con una subfuncion...
alguna idea?

desde ya muchas gracias por contestar y tan rapido!

[roman]

Yo no digo que hagas un condicional para cada caso posible, sólo con TControl que es el ancestro de todos los demás y que tiene ya esas propiedades

Código Delphi [-]
comp := findcomponent(edit3.text);

if comp is TControl then
begin
  TControl(comp).top := ...
  TControl(comp).height := ...
  TControl(comp).left := ...
  TControl(comp).width := ...
end;

// Saludos

[b3nshi]

Mira vos! Me habia olvidado de ese detalle... falta de practica!

Muchisimas Gracias roman... me solucionaste el problema y me simplificaste el codigo! jaja en serio muchisimas gracias!

[Hugorr]

Tengo que hacer un pequeño ajuste en vba, el problema es que necesitaba una funcion como el findComponent de delphi. No se si habra alguna y si la hay podrian decirme cual es. He buscado inf. pero nada solo encuentro la funcion de delphi.

Muchas gracias.