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 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!