Cita:
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;