ShowModal

Raudus Forums Components ShowModal

This topic contains 2 replies, has 2 voices, and was last updated by  tobbe5 5 years, 3 months ago.

Viewing 3 posts - 1 through 3 (of 3 total)
  • Author
    Posts
  • #2875

    tobbe5
    Participant

    Hi!

    Is there any way to make a Form appear as ShowModal, i.e. that execution halts until the user has responed to a question.

    I am trying to make a replacement for Delphi’s function MessageBox.

    Best regards

     

    #9717

    LOGISTICASOFT
    Participant

    ESTE PROCEDIMIENTO ES EQUIVALENTE A SHOWMODAL

    THIS PROCEDURE IS EQUIVALENT TO ShowModal

     

    procedure TForm1.RaButton1Click(Sender: TObject);

    begin

    //form2.show;

    Form2.RaBitButton_CLOSE.OnClick := RaApplicationEventsBoot_1;

     

    Form2.ShowModalNonBlocking;

     

    end;

     

    procedure TForm1.RaApplicationEventsBoot_1(Sender: TObject);

    begin

    RaEdit1.Text := ‘HOLA FOMA 2’;

    //GLOBAL.G_MEnsaje;

    Form2.Close ;

    end;

    #10260

    tobbe5
    Participant

    Great!

    Thanks!

Viewing 3 posts - 1 through 3 (of 3 total)

You must be logged in to reply to this topic.