Обладая такими способностями, вы сможете, например, разлиновать поверхность экрана как в тетради в клеточку, выводить пугающие пользователя надписи и даже создать эффект окаменение экрана, если, конечно, разработаете алгоритм выполнения данной задачи.
Я покажу как рисовать на экране на примере разлиновки:
Сначала объявите глобальную переменную
Scr: TCanvas;
Затем по событию OnCreate() для формы напишите такой код:
Обработчик события по нажатию на кнопку пусть выглядит так:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
i := 0;
while i < 1024 dobeginwith Scr dobegin
MoveTo(i, 0);
LineTo(i, 768);
i := i + 10;
end;
end;
i := 0;
while i < 768 dobeginwith Scr dobegin
MoveTo(0, i);
LineTo(1024, i);
i := i + 10;
end;
end;
Button1.Refresh;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как рисовать на экране", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!