Chris
30-07-2007, 22:36:41
Este truco lo encontré en Torry's Net. Sirve para cambiar en momento de ejecución el formulario principal de nuestra aplicación. Es útil cuando utilizas condiciones para determinar que formularios crear al momento de iniciar la aplicación.
procedure SetAsMainForm(aForm:TForm);
var
P:Pointer;
begin
P := @Application.Mainform;
Pointer(P^) := aForm;
end;
procedure SetAsMainForm(aForm:TForm);
var
P:Pointer;
begin
P := @Application.Mainform;
Pointer(P^) := aForm;
end;