MessageDlg con Raudus

[ASAPLTDA]

Empezado por Neeruu

En Raudus no hay ShowModal.... por lo menos en las ultimas versiones... eso era algo que me gustaba de raudus pero esta característica no esta mas.....

Creo que tengo que empezar a pensar la aplicación de modo que no tenga que pedir la intervención del usuario en medio de un proceso....

// ESTE EJEMPLO FUNCIONA USANDO CALLBACK ESTO LO EXPLICARON EN LA PREGUNTA QUE HICE EN RAUDUS WWW.RAUDUS.COM FOROS

LA FORM1 LLAMA A LA FORM2 , LA FORMA2 MUEVE EL VALOR A LA UNIDAD GLOBAL CUANDO CIERRA AL FORMA DOS SE EJECUTA EL PROCEDURE ASOCIADO A CALL DE LA FORMA2

Código Delphi [-]
procedure TForm1.RaButton1Click(Sender: TObject);
begin
  Form2.RaButton1.OnClick := RaApplicationEventsBoot_1;
   RaEdit1.Text := ' ';
   Form2.ShowModalNonBlocking;
end;

// RECIBE EL VALOR DE LA FORMA 2
procedure TForm1.RaApplicationEventsBoot_1(Sender: TObject);
begin
RaEdit1.Text := GLOBAL.G_MEnsaje;
Form2.Close ;
end;

//********** FORMA2 AL CERRAR

Código Delphi [-]
procedure TForm2.RaButton3Click(Sender: TObject);
begin
 GLOBAL.G_MEnsaje := 'Hola Forma1';
P_MENSAJE :=  RaEdit.Text  ;

CLOSE;
 end;