| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Alexeu Lt JG

Registrado: 12 Abr 2007Mensajes: 62
|
Publicado: Mar 26 Feb, 2008 11:14 am Asunto: Lio con los forms |
|
|
Hola a todos, he realizado un pequeño programa con conexion a base de datos. Lo que intento hacer es un asistente de configuración donde el usuario introduzca la ip, hasta ahi bien, el problema viene cuando quiero que se me ejecute el form del asistente cuando inicie el programa por primera vez.
Como puedo hacerlo?.
Muchas gracias. |
|
| Volver arriba |
|
 |
Cri_sys Master


Registrado: 13 Feb 2004Mensajes: 198Ubicación: Maringá, Brazil
|
Publicado: Mar 26 Feb, 2008 12:24 pm Asunto: |
|
|
Entra en
Project>Options>Forms>MainForm >> Ventana de Configuracion _________________ Read what I mean, not what I write! |
|
| Volver arriba |
|
 |
Alexeu Lt JG

Registrado: 12 Abr 2007Mensajes: 62
|
Publicado: Mar 26 Feb, 2008 1:53 pm Asunto: |
|
|
Si, eso lo se, lo que deseo hacer es que solo se ejecuten esos forms cuando se inicie el programa por primera vez, despues que se inicie normal, desde el form1.
Gracias |
|
| Volver arriba |
|
 |
MarioMarieti Cmdr

Registrado: 28 Dic 2004Mensajes: 144Ubicación: Murcia (España)
|
Publicado: Mar 26 Feb, 2008 2:31 pm Asunto: |
|
|
Lo puedes hacer en el eventon OnShow del formulario principal, siempre y cuando el indicador de que es la primera vez que se ejecuta el programa, el cual puedes guarda en un fichero *.ini, te diga que es la primera vez que se ejecuta.
Te pongo un ejemplo de lo que yo hago en dicho evento:
if(Tag==0)
{
TfrmContra *frmform = new TfrmContra(this);
frmform->ShowModal();
if(frmform->g_nom_usu.IsEmpty() && frmform->g_usuario.IsEmpty())
{
frmPrincipal->WindowState=wsMinimized;
Application->Terminate();
return;
}
else
{
g_usuario = frmform->g_usuario;
g_nom_usu = frmform->g_nom_usu;
BarraEstado->Panels->Items[3]->Text= g_nom_usu;
}
delete frmform;
BringToFront();
SQL="select DatePart('ww', Now() ) as semana from gen_meses where me_codigo = 1";
EjecutaSQL(DTM1->QryTemp,SQL);
BarraEstado->Panels->Items[0]->Text=BarraEstado->Panels->Items[0]->Text + " (Semana " +
DTM1->QryTemp->FieldByName("semana")->AsString + ")";
Tag=1;
} |
|
| Volver arriba |
|
 |
|