No replies to this topic

[sir.dev.a.lot]

[TRUCOS DELPHI] Cambiar el Formulario Principal en tiempo de Ejecucion.

delphi

procedure SetAsMainForm(aForm:TForm);
	var
	  P:Pointer;
	begin
	  P := @Application.Mainform;
	  Pointer(P^) := aForm;
	end;

Saludos!