ShowModal

[tobbe5Participant]

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

 

[LOGISTICASOFTParticipant]

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;

[tobbe5Participant]

Great!

Thanks!

[Author]

Posts