Ver Mensaje Individual
  #2  
Antiguo 11-08-2011
jsc jsc is offline
Miembro
 
Registrado: nov 2003
Posts: 144
Reputación: 21
jsc Va por buen camino
he llegado a conseguir lo que quiero pero quisiera todavia reducir más código
a ver si podeis ayudarme

adjunto un ejemplo tonto para ver lo que quiero conseguir (delphi 7)

pulsando el boton 1 se muestra form2
pulsando el boton 2 se muestra form3

se podria reducir el codigo
Código:
   if (sender as TButton).caption = 'Button1' then form := TForm2.Create (Form2) ;
   if (sender as TButton).caption = 'Button2' then form := Tform3.Create (Form3) ;
   if (sender as TButton).caption = 'Button3' then form := Tform4.Create (Form4) ;
de manera que
Código:
form:=TForm2.Create(Form2)
valdria para todos los forms?
algo asi:
Código:
 form := ('T'+variable).Create(variable)
donde "variable" seria por ejemplo el caption del boton; en este caso, form2, form3,form4

podria hacerse algo ó lo máximo que puede reducirse es como en el ejemplo que he puesto?

gracias de antemano
Archivos Adjuntos
Tipo de Archivo: rar pruebaprog.rar (11,6 KB, 11 visitas)
Responder Con Cita