Пространство имен 'System.Drawing' не найдено - PascalABC.NET

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

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

Листинг программы
  1. {$apptype windows}
  2. {$reference 'System.Windows.Forms.dll'}
  3. uses
  4. System,
  5. System.Windows.Forms,
  6. System.Drawing,
  7. System.Net;
  8.  
  9. var
  10. MainForm: System.Windows.Forms.Form;
  11. B1: System.Windows.Forms.Button;
  12. B2: System.Windows.Forms.Button;
  13. var
  14. w := new WebBrowser;
  15. var
  16. bbr := new Form;
  17. procedure B1_Click(Sender: Object; Args: System.EventArgs);
  18. begin
  19. w.Url := new System.Uri('http://www.google.ru/');
  20. w.Dock := Dockstyle.Fill;
  21. bbr.Controls.Add(w);
  22. Application.Run(bbr);
  23. end;
  24. procedure B2_Click(Sender: Object; Args: System.EventArgs);
  25. begin
  26. w.Url := new System.Uri('http://vk.com/');
  27. w.Dock := Dockstyle.Fill;
  28. bbr.Controls.Add(w);
  29. Application.Run(bbr);
  30. end;
  31. begin
  32. B1 := new Button; {Создаём кнопку}
  33. B2 := new Button;
  34. B1.Location := new System.Drawing.Point(50, 60); {Позиция кнопки на форме}
  35. B2.Location := new System.Drawing.Point(150, 160);
  36. B1.Text := 'Скример'; {Текст кнопки}
  37. B2.Text := 'Няша:3';
  38. B1.Click += B1_Click; {Процедура, выполняющаясь по нажатию}
  39. B2.Click += B2_Click;
  40. MainForm := new Form;
  41. MainForm.Text := 'Нажмите кнопку';
  42. MainForm.Controls.Add(B1); {Добавляем кнопку на форму}
  43. MainForm.Controls.Add(B2);
  44. Application.EnableVisualStyles; {Подключаем визуальные стили}
  45. Application.Run(MainForm);
  46. end.
Вот код, выдаёт ошибку: Program2.pas(6) : Пространство имен 'System.Drawing' не найдено. В других программах System.Drawing работает нормально. Подскажите, в чём беда?

Решение задачи: «Пространство имен 'System.Drawing' не найдено»

textual
Листинг программы
  1. {$reference 'System.Drawing.dll'}

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


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

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

6   голосов , оценка 3.667 из 5

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

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

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