Blocking parent form-window in Delphi

Question

I'm trying to create a simple application that show two form-windows. The first one, the main form should be able to display a popup form-window when a bottom is clicked. The second form showed must disable the functionality of the main form.

Please show a simple code for this example.

Answer 1

Try:

procedure ShowModalForm()
var 
  newForm: TNewForm;
begin
  newForm := TNewForm.Create(nil);
  try
    newForm.ShowModal;
  finally
    newForm.Free;
  end;
end;