[Epachsoft]

Hola,

Lo que usualmente yo hago es lo siguiente.

En toda ventana nueva que estoy creando, agrego un metodo publico llamado execute(parametro1,parametro2,parametro3);

El execute contiene realmente el control ventana, ejemplo

Código Delphi [-]
function execute(param1:string):boolean;
begin
 Result:=False;
 If (PARAM1='CORRA') then
  Resul:=showmodal=MrOk
 else
  Begin
    // nada paso aqui.
   Result:=False; // reiterativo, pero es una tradicion.
  End;
 End;

De esta manera se evita la MALA costumbre de poner codigo en el OnShow, en el OnActivate. Inclusive se puede controlar lo que pasa en el OnCreate.


Luego desde cualquier otra ventana yo ejecuto

Código Delphi [-]
Begin
 With TNewWindow.Create(Self) do
  Begin
   Try
     If Execute('CORRA') then DoSomething else Dosomethingelse;
   Finally
    Free; // Si se usa una variable temporal, lo mejor es usar FreeandNil.
   End;
  End;
End;

Espero que sirva.