Código Delphi [-] var Form1: TForm1; form_llama: integer; procedure TForm1.B1Click(Sender: TObject); begin form_llama:=1; Form2.ShowModal; end;
var Form1: TForm1; form_llama: integer; procedure TForm1.B1Click(Sender: TObject); begin form_llama:=1; Form2.ShowModal; end;