Как нарисовать сетку на форме?

Posted by Chas under Пост-обзор

Доброго времени суток всем. Такая тема: пишу прогу, которая создаёт по нажатию кнопки форму заданного размера, и необходимо, чтобы на новой форме создавалась сетка на всю форму

MyLastHit:

var t:Tshape; - глобально

В процедуре онкриэйт формы:

t:=Tshape.Create(self);

with t do

begin

  parent:=form1;

  width:=form1.width;

  left:=0;

  top:=0;

  height:=form1.height;

  brush.style:=bscross;

  brush.color:=clGray;

end;

Ну и в uses — ExtCtrls написать

тема на форуме

Похожие статьи

• Перенести программу из Delphi в Lazarus
• Тест в Delphi с помощью RadioGroup
• Random слов в Memo
• Плавное перемещение Image больших размеров
• Выдвижное меню
• Получение яндекс каптчи в Image
• Добавить строку с верха вниз StringGrid
• Выбор таблицы в ComboBox
• Указать координаты для создания компонента
• Скопировать данные из Edit в Word