Evento de formulario posterior a onshow

[roman]

Empezado por apicito

No se si habrá algun evento en un formulario que se lance despues del onshow y que permita cerrar el formulario.

El evento en sí no existe pero lo puedes crear tú mismo como muestro en el mensaje http://www.clubdelphi.com/foros/show...59&postcount=6

// Saludos

[ruina]

Aunque no os lo creais no me vale ninguno de los trucos ateriores en este caso particular, os explico:

Bien, estamos en una aplicacion CLX (delphi 7.0 - kylix 3), y quiero (lease me obligan) una pantalla de selección Pre-formulario principal, el caso es que si pulsan cerrar en ese pre-form no debo sacar el formulario principal, cerrando la aplicación.

¿por qué no puedo hacer que la pantalla "pre" sea la principal y esconderla?
porque no se que pasa pero el comportamiento de las ventanas en clx es ligeramente diferente y en cuanto la aplicación pierde el foco al volver sale siempre la pantalla "pre". Y si hago un hide desaparece de la barra de tareas.

El truco del Activate me da siempre una excepcion.



El truco de los mensages ya lo habia usado antes y funciona muy bien pero... estamos en una aplicación CLX y aqui son QMessages y yo no he conseguido poner un mensage a la cola, siempre me saltan de inmediato.

Ahora voy a intentar
plan a) enredar en dpr (Application.Initialize...) a ver si consigo mostrar la pre y cerrar la aplicación si le dan a salir.

plan b) poner un timer, activarlo en el OnShow y cerrar el form (¡¡peazo de plan b!!)

ya os contaré

[marto]

mmmm opción a:

Código Delphi [-]
program Project2;

uses
  QForms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Form1 := TForm1.Create(Application);
  if (Form1.ShowModal = 1) then
  begin
    Form1.Free;
    Form2 := TForm2.Create(Application);
    Form2.ShowModal;
  end;
  Application.Run;
end.

probado y chuta

[ruina]

Perfecto!

justo ayer por la tarde me salio lo mismo ^_^ para mi que me mandaste la solusión telepaticamente.

Muchas Gracias a todos