Forum FunLabyrinthe

Comment fait-on, en FunDelphi, pour qu'un bouton poussoir s'active quand, par exemple, 4 boutons du même ID (entre eux et celui dont j'ai parlé avant) sont appuyés en même temps ?

effect TMyMultiButton(TPushButton)
  name 'Boutons multiples';

  property Count: Integer; // nombre de boutons en tout (4 pour toi)

  property DownCount: Integer;

  on ButtonDown do
  begin
    DownCount := DownCount + 1;

    if DownCount = Count then
    begin
      // Ici tous les boutons sont appuyés en même temps
      FaireCeQuIlFaut;
    end;
  end;

  on ButtonUp do
  begin
    DownCount := DownCount - 1;
  end;
end;

Où place-t-on le chiffre ? Quelque soit l'endroit où je le place, ça ne convient pas !

Modifié Xaumina (mars 18, 2011 09:38:57)

Il y a trois possibilités. Mais celle que je préfère, ici, c'est directement dans l'inspecteur d'objets.

Merci !

Que donne ceci avec des obstacles ?

C'est-à-dire ? On ne peut pas appuyer sur un obstacle, donc je ne comprends pas ta question.

C'est détruire les obstacles. On en détruit, deux, trois... et au bout d'un certain nombre, ça modifie une case.

OK, ben alors ça donnerait quelque chose comme ça :

obstacle TMonObstacle
  name '...':
  image '...':

  property Count: Integer; // nombre total à détruire (le spécifier dans l'inspecteur)

  property DestroyedCount: Integer;

  on Pushing do
  begin
    inherited;

    if Player can DestroyMyObstacle then
    begin
      Square.Obstacle := nil;
      DestroyedCount := DestroyedCount + 1;

      if DestroyedCount = Count then
      begin
        // ici tous les obstacles ont été détruits
      end;
    end else
    begin
        Player.ShowMessage('...');
    end;
  end;
end;

Merci !