Alors pour ça il faut encore ajouter, dans TMyMovableBlock :

  on ApplyMove do
  var
    OldPos: T3DPoint;
  begin
    OldPos := Position;

    inherited;

    // Handle interactions with buttons
    if Map[OldPos].Effect is TPushButton then
      TPushButton(Map[OldPos].Effect).ButtonUp(Context);

    if Map[Position].Effect is TPushButton then
      TPushButton(Map[Position].Effect).ButtonDown(Context);
  end;

Merci !

Ca m'embête de poser cette cette question, mais pourrait-on avoir un code FunDelphi pour que les MovableBlocks puissent aller dans les tunnels, qu'on puisse les pousser sur les niveaux 0, sur les niveaux 1 si elle y est au démarrage (et au niveau 2, 3, 4, 5...) ? Et qu'elle puisse descendre mais pas remonter sur ces niveaux ?

Wow... Après le grappin, en v'là une autre !

Là je garantis rien, parce que ça va être vraiment dur, mais je vais essayer.

Merci encore. Je suis désolé de poser tant de qustions...