Создание сетки на форме.

[Steelfist]

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





Я новичёк в программировании. Пытался зоздавать Image и расчертить на нём, но не получилось даже создать(.


type
TMain = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Label3: TLabel;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
procedure CreateForm;

{ Private declarations }
public
{ Public declarations }
end;

var
Main: TMain;
Image: TImage;

implementation

{$R *.dfm}

procedure TMain.Button1Click(Sender: TObject);
begin
CreateForm;
end;

procedure TMain.CreateForm;
var Form: TForm;

begin
Form:=TForm.Create(Application);
Form.Caption:='Плата';
Form.Top:=random(1024);
Form.Left:=random(1024);
Form.Height:=StrToInt(Edit1.Text);
Form.Width:=StrToInt(Edit2.Text);
Form.Show;
Form.BorderStyle:=bsToolWindow;
Image:=TImage.Create(Image1);
Image.Width:=Form.Width;
Image.Height:=Form.Height;
Image.Canvas.Brush.Color;
Image.Canvas.FillRect(Image.Canvas. ClipRect);
end;
end.


Прошу помощи в данном вопросе.

[asmodey1]

...Delphi\Demos\Doc\Graphex

[phomm]

Form:=TForm.Create(Application);
замени на
application.createForm(TForm, form);

Image:=TImage.Create(Image1);
замени на
Image:=TImage.Create(form);

а вообще, очень заковыристо делаешь простую (вроде) задачу

[Прик]

TImage - визуальный компонент и ему еще надо Parent присобачить, чтобы показывался на форме.

Image.Parent := Form;

А лучше рисовать на самой форме, в событии OnPaint. Правильно, phomm, чего огород городить

[Аватар]

Form:=TForm.Create(Application);
замени на
application.createForm(TForm, form);

вообще-то это разные способы достижения одного и того же результата

[MyLastHit]

Замечательный компонент - шэйп...
Почему бы не использовать его? в Brush.style прописать сетку типа bsCross и вуоля)

[Steelfist]

Сообщение от MyLastHit

Замечательный компонент - шэйп...
Почему бы не использовать его? в Brush.style прописать сетку типа bsCross и вуоля)

Сетка должна создаваться автоматически, вместе с формой и на форме, а не с помощью кисти пользователем. Всем спасибо, буду пробовать, о результатах сообщу позднее.)

[Steelfist]

Image.Parent:= Form;

вот эта строчка решила в отображении имаджа))

[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 написать

[MyLastHit]

Вот результат выполнения кода: