haciendo una interfaz de asistente en delphi 7

Question

Estoy usando delphi 7 y estoy tratando de hacer una interfaz de asistente. No sé si existe una manera más fácil de hacer un asistente, así que estaba pensando en crear formularios separados para cada paso del asistente, y cuando el usuario hace clic en "Siguiente", el formulario activo se cierra y se abre el siguiente.

Aquí hay una captura de pantalla de dos formas sucesivas:

He hecho un procedimiento que toma 2 formas como parámetros: la forma que se cerró y el siguiente formulario del asistente

class Procedure Tspad.nextForm(showForm, closeForm: TForm); 
begin 
    closeForm.Close; 
    showForm.Showmodal; 
end; 

al hacer clic en el botón "Siguiente" se ejecuta el código folowing:

Tspad.nextForm(echipContractForm, clientContractForm); 

cuando corro el programa, y ​​pulsar el botón "Siguiente", el siguiente formulario apeare pero el paciente no se cerró.

¿Cómo puedo hacer que esto funcione, o hay otra forma más eficiente de crear un asistente?

Answer 1

Una forma muy común de hacer un asistente es usar un control de página. Cada página distinta del asistente es una página/hoja de tabla diferente en el control de página. Creo que esto es efectivamente la forma en que Windows implementa los asistentes.

Naturalmente, desea ocultar todas las pestañas. Para ello, establezca TabVisible en False para cada hoja de cálculo. Cuando desee avanzar y retroceder a través del asistente, p. cuando el usuario hace clic en los botones siguiente o anterior, efectúe esto configurando ActivePage o ActivePageIndex dependiendo de su preferencia.

Answer 2

Una buena práctica para la división de contenido que se muestra en una sola forma es el uso de Marcos.

Un marco se parece mucho a una forma, excepto que no tiene ninguna ventana de su propia, sino que más bien se encuentra dentro de un formulario anfitrión.

Cuando se combina con (como David Heffernan ha sugerido) un TPageControl o incluso un TNotebook (que es bastante-mucho exactamente lo mismo que TPageControl, sólo que no tiene aquí, para empezar), que terminan con un asistente fácil de mantener.

Answer 3

Puede probar algunos componentes que pueden ayudarle con esta tarea (utilizando internamente tPageControl o TNotebook). Ver this link.

Atentamente.

Answer 4

JVCL tiene un buen control para hacer un asistente de una manera muy simple y efectiva (TJvWizard). Ver http://jvcl.delphi-jedi.org/

Answer 5

le puede dar una oportunidad a éstos:

• Balmsoft Wizard liberado bajo la LGPL.
• Delphi Wizard Framework por SO miembro Steven R. Kamradt.

Answer 6

También puede considerar TMS TAdvSmoothStepControl (¡no es gratis!). Otra solución, pero solo 'externa' a su programa, es usar Inno Setup para hacer un asistente, incluso para propósitos de 'instalación no instalada'.

De hecho, con Inno Setup puede pensar un montón (modificar el archivo .ini y el registro, iniciar/detener programas ...) que pueden ser útiles para un asistente sin "instalar" un programa.