Вызов события, OnDrawCell Опции

[Cheburashka]

В общем я хочу чтобы у меня после какого-то действия вызывалась процедура OnDrawCell для StringGrid'a.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

Подскажите пожалуйста как можно эту процедуру вызвать из какого-либо участка кода?

[volvo]

Когда я говорю "автоматически" - подразумевается, конечно, "во время работы программы". То есть, я не стал бы бросать все эти панели и изображения в режиме редактирования формы, потом с ними замучаешься разбираться, что где. А сделал бы вот так:

Тут код (Показать/Скрыть)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    arrPanels: array of array of TPanel;

    procedure myPanelClick(Sender: TObject);
    procedure myImageClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

const
  Rows = 10;
  Cols = 10;

  picWidth  = 22;
  picHeight = 22;

procedure TForm1.myPanelClick(Sender: TObject);
begin
  (Sender as TPanel).BevelOuter := bvRaised;
end;

procedure TForm1.myImageClick(Sender: TObject);
var myParent: TPanel;
begin
  myParent := (Sender as TImage).Parent as TPanel;
  myParent.OnClick(myParent);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  currTop, currLeft: Integer;
  i, j: integer;
begin
  SetLength(ArrPanels, Rows, Cols);

  currTop := 10;
  for i := 0 to Pred(Rows) do
  begin
    currLeft := 10;
    for j := 0 to Pred(Cols) do
    begin
      // Создаем панельку
      arrPanels[i, j] := TPanel.Create(Form1);
      with arrPanels[i, j] do
      begin
        Parent := Form1;
        Width := picWidth;
        Height := picHeight;
        Left := currLeft;
        Top := currTop;
        BevelOuter := bvNone;
        OnClick := myPanelClick;
      end;

      // Создаем изображение на панельке
      with TImage.Create(arrPanels[i, j]) do
      begin
        Parent := arrPanels[i, j];
        Align := alClient;
        Picture.LoadFromFile('smile.bmp');
        OnClick := myImageClick;
      end;

      // Продвигаемся направо
      currLeft := currLeft + picWidth + 2;
    end;
    // Следующая строка - двигаемся вниз
    currTop := currTop + picHeight + 2;
  end;
end;

// Эта процедура показывает, как можно обращаться к любому изображению.
// Достаточно у панельки, его содержащей, найти Component[0]. Поскольку
// при создании Image мы его родителя установили в arrPanels[i, j], то
// у этого самого arrPanels[i, j] в списке детей появился наш Image...
procedure TForm1.Button2Click(Sender: TObject);
var img: TImage;
begin
  img := (ArrPanels[2, 2].Components[0] as TImage);
  if img <> nil then img.Picture := nil;
  img.Picture.LoadFromFile('blink.bmp');
end;

end.

Вот чего получается на форме после того, как я сначала нажал кнопку "Создать", а потом - "Изменить":


К тому же, как ты заметил я показал еще и как обрабатывать клик по панельке (или по изображению), если понадобится...

По-моему, этот способ гораздо проще, чем кидать компоненты на форму, выравнивать их, да еще и запоминать, какой компонент как называется, или пользоваться неподходящими компонентами типа StringGrid-а.

Добавлено через 3 мин.

Если количество картинок заранее известно, можешь создать панели при проектировании вручную

И ты туда же... Ну, брошу я эти 100 картинок вручную. А как потом к ним обращаться? Мне вот надо перенести первую картинку во втором ряду на 4 ряда ниже. Я что, должен помнить, как пронумерованы картинки? А оно мне надо, если можно обращаться к любому изображению, как к обычному элементу массива?