Скрыть одну форму и показать другую - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Пытаюсь чтобы на кнопку одна форма скрылась, а вторая открылась (формы сделаны с помощью графического интерфейса). (unit1.form1 должна скрыться, а unit2.form1.показаться), но вылезает такая ошибка скрин, что делать? Скрин: Файл проекта:
Листинг программы
  1. uses Unit1, Unit2;
  2. begin
  3. System.Windows.Forms.Application.EnableVisualStyles();
  4. System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(false);
  5. System.Windows.Forms.Application.Run(new Form1)
  6. end.
Файл 1-ой формы:
Листинг программы
  1. Unit Unit1;
  2. interface
  3. uses System, unit2, System.Drawing, System.Windows.Forms;
  4. type
  5. Form1 = class(Form)
  6. procedure button1_Click(sender: Object; e: EventArgs);
  7. {$region FormDesigner}
  8. private
  9. {$resource Unit1.Form1.resources}
  10. button1: Button;
  11. {$include Unit1.Form1.inc}
  12. {$endregion FormDesigner}
  13. public
  14. constructor;
  15. begin
  16. InitializeComponent;
  17. end;
  18. end;
  19. implementation
  20. procedure Form1.button1_Click(sender: Object; e: EventArgs);
  21. begin
  22. unit1.form1.hide; //здесь вылазит ошибка
  23. unit2.form1.show; //здесь вылазит ошибка
  24. end;
  25. end.
Файл 2-ой формы:
Листинг программы
  1. Unit Unit2;
  2. interface
  3. uses System, System.Drawing, System.Windows.Forms;
  4. type
  5. Form1 = class(Form)
  6. {$region FormDesigner}
  7. private
  8. {$resource Unit2.Form1.resources}
  9. {$include Unit2.Form1.inc}
  10. {$endregion FormDesigner}
  11. public
  12. constructor;
  13. begin
  14. InitializeComponent;
  15. end;
  16. end;
  17. implementation
  18. end.

Решение задачи: «Скрыть одну форму и показать другую»

textual
Листинг программы
  1. {$apptype windows}
  2. {$reference System.Windows.Forms.dll}
  3.  
  4.  
  5. uses
  6.   System.Text,
  7.   System,
  8.   System.Windows.Forms,
  9.   System.Net;
  10. var
  11.   myButton1,myButton2,myButton3: Button;
  12.   myForm1 := new Form;
  13.   myForm2 := new Form;
  14. procedure MyButton1Click (sender: Object; e: EventArgs);
  15. begin
  16. myForm1.Hide;
  17. myForm2.Show;
  18. end;
  19. procedure MyButton2Click (sender: Object; e: EventArgs);
  20. begin
  21. myForm2.Hide;
  22. myForm1.Show;
  23. end;
  24. procedure MyButton3Click (sender: Object; e: EventArgs);
  25. begin
  26. myForm1.Close
  27. end;
  28. begin
  29.   myButton1 := new Button;
  30.   myButton1.Text := 'Перейти на форму 2';
  31.   myButton1.AutoSize := True;
  32.   myButton1.Left := 60;
  33.   myButton1.Top := 50;
  34.   myButton1.Width := 150;
  35.   myButton2 := new Button;
  36.   myButton2.Text := 'Перейти на форму 1';
  37.   myButton2.AutoSize := True;
  38.   myButton2.Left := 60;
  39.   myButton2.Top := 50;
  40.   myButton2.Width := 150;
  41.   myButton3 := new Button;
  42.   myButton3.Text := 'Завершить работу';
  43.   myButton3.AutoSize := True;
  44.   myButton3.Left := 60;
  45.   myButton3.Top := 150;
  46.   myButton3.Width := 150;
  47.   myForm1.Text:='Form1';
  48.   myForm2.Text:='Form2';
  49.   myForm1.Controls.Add(myButton1);
  50.   myForm1.Controls.Add(myButton3);
  51.   myForm2.Controls.Add(myButton2);
  52.   myButton1.Click += myButton1Click;
  53.   myButton2.Click += myButton2Click;
  54.   myButton3.Click += myButton3Click;
  55.   Application.Run(myForm1);
  56. end.

Объяснение кода листинга программы

  1. Объявлены переменные myButton1, myButton2, myButton3 типа Button.
  2. Создана форма myForm1 и myForm2.
  3. Определены процедуры обработчики событий кликов по кнопкам myButton1, myButton2, myButton3.
  4. В обработчике события клика по myButton1 выполняется myForm1.Hide (скрыть myForm1) и myForm2.Show (показать myForm2).
  5. В обработчике события клика по myButton2 выполняется myForm2.Hide (скрыть myForm2) и myForm1.Show (показать myForm1).
  6. В обработчике события клика по myButton3 выполняется myForm1.Close (закрыть myForm1).
  7. Создаются кнопки с указанными текстами и свойствами.
  8. Кнопки добавляются на соответствующие формы.
  9. Обработчики событий клика по кнопкам привязываются к процедурам myButton1Click, myButton2Click, myButton3Click.
  10. Запускается приложение с формой myForm1.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы