Varios detalles....
- En el bucle de "chorraditas" añade la línea Application.ProcessMessages, así por lo menos podremos deter el efecto cerrando la aplicación
(y ni se te ocurra preguntar qué es ProcessMessages, ¡lo buscas!
)
- En "Contactar", podrías mostrar ambos mensajes en la misma ventana. Tan sólo tienes que separar ambas líneas con el carácter #13 (Enter):
Código Delphi
[-]
MessageBox(Handle, 'Linea 1'+#13+'Linea 2'+#13#13#13+'Línea muy separada', 'Título', MB_OK+MB_ICONINFORMATION);
- El MessageBox (o Application.MessageBox) también te sirve para hacer el "guardado de seguridad". Es más cómodo (y gasta menos tiempo a la hora de diseñar y menos espacio en el ejecutable). Algo así:
Código Delphi
[-]
Case Application.MessageBox(PChar('¿Desea guardar cambios al archivo "'+NombreArchivo+'"?'), 'Guardado de seguridad', MB_ICONQUESTION + MB_YESNOCANCEL) of
ID_YES: Guaradar;
ID_NO: Salir;
end;
Busca en el archivo de ayuda Win32.hlp todas las posibles opciones (flags) para MessageBox. Por ejemplo, otra que podrías poner en lugar de MB_ICONQUESTION sería MB_ICONWARNING.
- Interesante dato del portafolios
(aunque, ¿no es portapapeles?
).
- "Altura" y "anchura" son palabras incorrectas, Lo ideal sería hacer como Delphi, o Word:
Línea y columna (posición "y" y posición "x").
Además, con que lo pongas en un sólo panel sobra (de hecho, se hace más legible
)
Y lo más importante, ¡he podido ejecutarlo! No sé qué fallo tendrán las otras máquinas...