MessageDlg con Raudus

[Neeruu]

Hola que tal...

En medio de un procedimiento es necesario que mi usuario defina el curso de ejecución, como puedo hacerlo...

Por ejemplo:

Esta seguro de borrar el Item? (SI=borra, NO=No borra);

Pero no se como hacerlo con Raudus...
Alguna idea...


Saludos...

[Neftali [Germán.Estévez]]

¿Has revisado los ejemplos?
En alguno de ellos aparecen diálogos.

NOTA: acabo de ver, que en ese caso, el diálogo lo genera manualmente, y lo llama como un formulario normal.

Código Delphi [-]
  Form2.Position := poScreenCenter; // center it again
  Form2.ShowModalNonBlocking;

[Neeruu]

Si eso lo se....

Se que tengo que crear la ventanita de dialogo....

Lo que no se es como hacer para que en medio de un procedimiento, mostrar esa ventanita y esperar a que el usuario decida por SI o por NO.. para saber por donde seguir!!!!

[Neftali [Germán.Estévez]]

Prueba con ShowModal.

[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....

[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;