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

[Client]

свойство Picture тоже поменяй

[volvo]

пытался сделать что-то типа этого... не вышло в итоге

Этого недостаточно. Такой способ сработает только при простых типах (копирование Integer-ов, строк всяких). А Picture - это сложный тип, его надо копировать по-другому:

procedure TForm1.Button3Click(Sender: TObject);

  // Чтоб не таскать за собой все время эту длинную строку - сокращаем:
  function GetPic(i, j: integer): TPicture;
  begin
    result := (ArrPanels[i, j].Components[0] as TImage).Picture;
  end;

  // Это процедура копирования изображения из CopyFrom в CopyTo.
  // При этом CopyFrom затирается...
  procedure CopyPic(CopyTo: TPicture; CopyFrom: TPicture);
  begin
     CopyTo.Assign(CopyFrom);
     CopyFrom := nil;
  end;

var
  Pic: TPicture;
begin
  // А вот теперь - сам обмен, как и с целыми. Только сначала
  // надо создать класс нужного типа, а потом его удалить. А так - все как и обычно...
  Pic := TPicture.Create;
    CopyPic(Pic, GetPic(4, 4));
    CopyPic(GetPic(4, 4), GetPic(2, 2));
    CopyPic(GetPic(2, 2), Pic);
  Pic.Free;
end;

И как Sender может быть другого типа в данном случае?

Не надо отвечать вопросом на вопрос. Я тебя спросил, почему Sender не может быть другого типа. И что будет, если это произойдет.

[Cheburashka]

volvo, в общем-то я затрудняюсь ответить на Ваши вопросы
А за код спасибо

Сообщение отредактировано: Сергей Меркурьев - 1.07.2010 12:44