Создание TImage в Run-time

[mrbadge]

Создаю элементы следующим образом:

type Flagki=array [1..667] of TImage;

var
  Form1: TForm1;
  ...
  flagg: flagki;

...
var  i,j,t,p: Integer;
      ...
p:=0;
for i:=0 to StringGrid1.rowCount-1 do
        for j:=0 to StringGrid1.colCount-1 do
      Begin
          if StringGrid1.Cells[j,i]='X' then begin
          p:=p+1;
          Flagg[p]:=TImage.Create(nil);
          Flagg[p].Parent:=Form1;
          Flagg[p].Left:=Bevel3.Left+5+j*stringgrid1.DefaultColWidth;
          Flagg[p].Top:=StringGrid1.Top+i*stringgrid1.DefaultRowHeight;
          Flagg[p].Width:=StringGrid1.DefaultColWidth;
          Flagg[p].Height:=StringGrid1.DefaultRowHeight;
          Flagg[p].Picture.LoadFromFile('flag.gif');
          Flagg[p].Visible:=True;
         end;
      end;
...

Однако, после выполнения цикла на форме нет элементов. Просьба посоветовать решение (необходимо поместить на форму n одинаковых картинок по известным координатам)

[mrbadge]

все, извините, проблему решил .. но теперь другая) таких картинок на форме может быть очень много и при большом количестве загрузка ЦП слишком большая. Как лучше оптимизировать код?

[SNUPY]

Flag: TBitmap;
...
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Grid: TStringGrid;
begin

  Grid := Sender as TStringGrid;

  if Grid.Cells[ACol,ARow] = 'x' then
  Grid.Canvas.StretchDraw(Rect, Flag);
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
  Flag := TBitmap.Create;
  Flag.LoadFromFile('flag.gif');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Flag.Free;
end;

можно еще
так:

    Flag: TPicture;
...
  Grid.Canvas.StretchDraw(Rect, Flag.Graphic);
...
  Flag := TPicture.Create;

[mrbadge]

Спасибо, я уже решил проблему немного по другому. Если возникнет необходимость - воспользуюсь Вашим вариантом.

[mrbadge]

Еще появился вопрос.
Использую оператор case таким образом:

case StringGrid1.Cells[j,i] of
          143,142:
          begin
         ...
          end;
         ...
end;

компилятор выдает ошибку "ordinal type required". If использовать не хочется, есть ли какое-нибудь решение здесь?

[vovk]

в case допустимо использовать только порядковый тип

[mrbadge]

еще такой вопрос:
стоит ли тащить все элементы для проги (картинки и тд) рядом с ней, или есть способ засунуть их в exe?

[Stilet]

стоит ли тащить все элементы для проги (картинки и тд) рядом с ней

Да. Для масштабируемости.

или есть способ засунуть их в exe?

Тоже да. Все напихать в ресурсы. Однако если интересует мое мнение - я стараюсь пользоваться первым способом.

[mrbadge]

Спасибо, думаю, оставлю компоненты рядом с эксешником

[mrbadge]

Еще вопрос: нужно реализовать такую вещь: все созданные компоненты привязываю к одной какой-нибудь невидимой кнопке (чтобы можно было потом уничтожить все не знаю их количества), но тк кнопка невидимая, то все компоненты, созданные в ран-тайме, наследуют этот признак, а их необходимо сделать видимыми. Есть ли способ проще?