Как правильно программно создавать объекты на форме

[Format C:]

Проблема следующая:
Есть двумерный массив: Image: Array[1..9, 1..10] Of TImage;
Нужно выделить под него память, разместить все объекты на форме и загрузить в них изображения. С памятью и размещением я разобрался, а вот с загрузкой изображения никак.

Вот код:

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TPole = Record
    Obj: Byte;
    Turn: Byte;
    Status: Byte;
  End;

  TMainForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    Procedure SetPole;
  public
  end;

var
  MainForm: TMainForm;
  Pole: Array[1..9, 1..10] Of TPole;
  Image: Array[1..9, 1..10] Of TImage;

implementation

{$R *.dfm}

Procedure TMainForm.SetPole;
Var
  X, Y: Byte;
Begin
  For X:=1 To 9 Do
    For Y:=1 To 10 Do
      Image[X,Y]:=TImage.Create(Owner);

  For X:=1 To 9 Do
    For Y:=1 To 10 Do
    Begin
      Image[X,Y].Height:=40;
      Image[X,Y].Width:=40;
    End;

  //Image[1,1].Picture:=TPicture.Create; - эта сторчка ничего не даёт.
  Image[1,1].Left:=5;
  Image[1,1].Top:=5;
  Image[1,1].Picture.LoadFromFile('img/000.ico');

  {For X:=1 To 9 Do   это тоже ничего.
    For Y:=1 To 10 Do
      Image[X,Y].Visible:=True;}
End;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  SetPole;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
Var
  X, Y: Byte;
begin
  For X:=1 To 9 Do
    For Y:=1 To 10 Do
      Image[X,Y].Free;
end;

end.

Когда пишешь Image[1,1].Picture. , то после точки ничего не появляется. А когда добавляешь объект на форму сам, то всё впорядке.
Подскажите в чём проблема.

[BOBAH13]

а кто будет после создания указывать на родителя ? ладно просто у каждого обьекта укажите свойство Parent := Self; и тогда попрет

[Format C:]

Спасибо. Помогло.
Только всё равно, когда пишешь Image[1,1].Picture. , то после точки ничего не появляется. А на память я все свойства непомню.

[mihali4]

после точки ничего не появляется

Специально провел эксперимент - все появляется...
После ввода точки клавишу SHIFT нажимаем?

Дополнил: так быстрее и ВСЕГДА список вываливается. Или не вываливается (если нечему или нарушен формат), тогда внизу, в окошке, где ошибки, появляется "грозная" надпись...

[zetrix]

После ввода точки клавишу SHIFT нажимаем?

Для чего? Для простых объектов: ставлю точку, список сам выпадает, а для "динамически созданных" нужно Shift? Хм... Странно.

[Vasya]

У меня немного похожий вопросик есть как можно организовать вывод на форму из графического BMP файла программно? Допустим читаем поблочно содержимое файла при помощи ReadBlock и заносим в переменную. Как можно организовать вывод на форму?

[BOBAH13]

я чет не понял... а Canvas.Brush.Bitmap ! что никак ? да и компонента TImage для чего

и чего Вы там заносите ? есть структуры битмапа описанные в Windows вроде! вы читаете только Dib часть ? тогда подумаем у меня есть коды писал когда то, а если полный битмап зачем его так читать ? есть TBitmap

[Vasya]

задание такое: программно прочитать BMP файл и вывести его попиксельно на форму
у меня начало имеется:

procedure ReadBMPheader(header:bmhptr;filenam e:string);
var
bmpfile:file;
hfile:file;
begin
assign(bmpfile,filename);
reset(bmpfile,1);
blockread(bmpfile,header^,sizeof(he ader^));
close(bmpfile);
Form1.Edit1.Text:=IntTostr(header^. f.Typf);
Form1.Edit2.Text:=IntToStr(header^. f.Size);
Form1.Edit3.Text:=IntToStr(header^. f.Res1);
Form1.Edit4.Text:=IntToStr(header^. f.Res2);
Form1.Edit5.Text:=inttostr(header^. f.OfBm);
end;
procedure TForm1.N1Click(Sender: TObject);
begin
{if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPic tureDialog1.FileName);
ReadBMPheader(@myheader,OpenPicture Dialog1.FileName);
end
else Form1.Action;} ТАКОЙ ВЫВОД НЕ ПРОХОДИТ НУЖНО ПРОЦЕДУРУ LOADFROMFILE ОРГАНИЗОВАТЬ САМОМУ
end;
end.

сдесь я читаю только заголовок. Но как вывести файл на форму?

[BOBAH13]

я же написал есть загловки типы Bitmap в Windows! их читаеш сначала файла bmp а потом там описание на ширину и длину изображения так же формат его... выделяеш соответствующий буфер чтобы ну массив Cardinal например если выделено для 32 бит или 24 - 3 байта 16 - 2 байта, а у остальных вообще палитры свои... короч выделел массив в него читаеш массив пикселей батмапа а потом простым перебором через ширину и длинну выводиш на канву формы или чего либо другого

[Format C:]

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

Специально провел эксперимент - все появляется...
После ввода точки клавишу SHIFT нажимаем?

Дополнил: так быстрее и ВСЕГДА список вываливается. Или не вываливается (если нечему или нарушен формат), тогда внизу, в окошке, где ошибки, появляется "грозная" надпись...

Shift не помогает, и никаких надписей не выводится, но после первой точки список появляется без Shift`а!
Он только после второй не хочет.
Возможно никак не ругается потому, что при написании кода, объекта реально не существует.

P.S. Мож я как-то не так Shift нажимал?