Пространство имен 'System.Drawing' не найдено - PascalABC.NET
Формулировка задачи:
Листинг программы
- {$apptype windows}
- {$reference 'System.Windows.Forms.dll'}
- uses
- System,
- System.Windows.Forms,
- System.Drawing,
- System.Net;
- var
- MainForm: System.Windows.Forms.Form;
- B1: System.Windows.Forms.Button;
- B2: System.Windows.Forms.Button;
- var
- w := new WebBrowser;
- var
- bbr := new Form;
- procedure B1_Click(Sender: Object; Args: System.EventArgs);
- begin
- w.Url := new System.Uri('http://www.google.ru/');
- w.Dock := Dockstyle.Fill;
- bbr.Controls.Add(w);
- Application.Run(bbr);
- end;
- procedure B2_Click(Sender: Object; Args: System.EventArgs);
- begin
- w.Url := new System.Uri('http://vk.com/');
- w.Dock := Dockstyle.Fill;
- bbr.Controls.Add(w);
- Application.Run(bbr);
- end;
- begin
- B1 := new Button; {Создаём кнопку}
- B2 := new Button;
- B1.Location := new System.Drawing.Point(50, 60); {Позиция кнопки на форме}
- B2.Location := new System.Drawing.Point(150, 160);
- B1.Text := 'Скример'; {Текст кнопки}
- B2.Text := 'Няша:3';
- B1.Click += B1_Click; {Процедура, выполняющаясь по нажатию}
- B2.Click += B2_Click;
- MainForm := new Form;
- MainForm.Text := 'Нажмите кнопку';
- MainForm.Controls.Add(B1); {Добавляем кнопку на форму}
- MainForm.Controls.Add(B2);
- Application.EnableVisualStyles; {Подключаем визуальные стили}
- Application.Run(MainForm);
- end.
Решение задачи: «Пространство имен 'System.Drawing' не найдено»
textual
Листинг программы
- {$reference 'System.Drawing.dll'}
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д