FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Accder a propiedad Text de un label de otro form!
Hola,
Hay una cosa que no hago bien y querria compartilo con vosotros a ver que hago mal. Quiero acceder a la propiedad text de un label de otro form, para ello he creado un procedure publico para llamarlo des de fuera...pero vayamos por pasos: Quiero mostrar un splashScreen que vaya canviando el texto segun los segundos que yo decido para abrir la aplicación mdi principal. Para ello tengo en el form del splash el siguiente còdigo: Código:
procedure TwinFormSplash.ExecLoop(); var x,y:int32; begin for x:=0 to 1000000 do begin if x=500000 then label2.Text:='Obrint Fitxers...'; if x=800000 then label2.Text:='Carregant Interfície...'; Progressbar1.PerformStep; y:=x; end; Self.Close; end; Código:
var splash: WinformSplash.TWinFormSplash; [STAThread] begin splash:=WinformSplash.TWinFormSplash.Create; //form del splash Splash.Show; Splash.Update; Splash.ExecLoop; //procedure que va canviando valores del label; Splash.hide; Splash.free; Application.Run(Main_Window.TWinForm_Principal.Create);//ventana principal del programa Utilizo bds2006 y programo con .NET i BDP.NET Hala saludos, |
#2
|
||||
|
||||
Hola XaRz!
El tiempo que tarde en mostrarse el splash va a depender de la velocidad del procesador, ya que tardará "1000000" vueltas. Esto en un PC lento tardará mucho, y en un PC rápido, pues será rápido. Yo te recomiendo algo como esto:
__________________
Si no lo sabes, necesitas leerlo |
#3
|
|||
|
|||
Ok, pero no veo como retrasas con pausas el splash. de acuerdo que es muy chapucero como lo he hecho yo pero almenos puedo mostrar el splash según vaya aumentado el valor del for. Como lo haces para que el splash se mantenga lo suficiente para que se pueda ver?
Además veo que tienes los procedures de cargar forms y cargar interfaces...yo nunca cargo nada en el main (programa principal) simplemente el main carga el contendor MDI y por menus voy cargando cada form cada vez. Hay alguna forma de pre cargar los procesos? cómo? (lo siento soy muy novatillo en esto...) |
#4
|
||||
|
||||
Lo de las pausas y retrasos... como usuario y también programador no te lo recomiendo. ¿Por qué esperar más de lo necesario a que un programa se cargue? Porque no es que quieras mostrar una información, sino que se está cargando el programa.
Imagina que Borland hubiese decido que el tiempo de carga es de 1 minuto para Delphi 7, en los tiempos en que sacaran la versión. Y ahora con equipos muchos más potentes, mejor sistema operativo, etc. el tiempo de carga fuese el mismo. ¿No te daría rabia estar esperando? Yo he sugerido "CargarForms" y "CargarInterfaces" porque pensaba que era lo que hacías. Pero es mucho mejor ir creando, como bien haces, en los menús.
__________________
Si no lo sabes, necesitas leerlo |
#5
|
|||
|
|||
Al fin he logrado algo parecido a lo que tenia en mente.
Dejo que el còdigo "hable": Código:
try splash:=WinformSplash.TWinFormSplash.Create ; Splash.Show; Sleep(100); Splash.ExecLoop(0); Splash.Update; sleep(1000); Splash.ExecLoop(1); Splash.Update; sleep(1000); Splash.close; Splash.Hide; finally Splash.Free; end; Application.Run(Main_Window.TWinForm_Principal.Create); Código:
procedure TwinFormSplash.ExecLoop(integ:integer); begin Sleep(100); Progressbar1.PerformStep; if integ=0 then begin Progressbar1.PerformStep; label2.Text:='Llegint dades...' ; end; Progressbar1.PerformStep; if integ=1 then begin Progressbar1.PerformStep; label2.Text:='Inicialitzant Raport Expert'; end; Progressbar1.PerformStep; end; Pero grácias de todos modos |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Guardar lo que tengo en un Edit1.text y edit2.text en una base de datos firebird | jorgeluisc | Conexión con bases de datos | 1 | 23-04-2006 18:29:28 |
Imposible hacer visible un form desde otro form | SMTZ | .NET | 13 | 16-01-2006 21:41:08 |
obtener valor de otro form | maruenda | Varios | 10 | 02-12-2004 21:06:01 |
ver una variable de otro form | mainau | Varios | 3 | 07-03-2004 12:55:14 |
Componentes Visuales, como propiedad de otro Componente | ingacg | OOP | 5 | 01-07-2003 23:10:39 |
|