Evenement sur un Tshape crééRésolu

Question

Bonjour!

Je suis d&#233;butant en delphi, et apr&#232;s avoir vu une source, je me pose une question!
En fait je voudrais faire un jeu de bataille naval, mais mon probl&#232;me se pose presque d&#232;s le d&#233;but lol! En fait j'ai donc cr&#233;er un tableau de Tshape.
Alors en fait, mon probl&#232;me est qu'en fait, je voudrais assigner &#224; chaque Tshape ainsi cr&#233;&#233;, l'evement OnMouseDown, et je sais pas trop comment faire! 

Si quelqu'un pouvait m'&#233;clairer?!!

Merci d'avance! @++

Cirec · Accepted Answer

Par contre CptPingu le bout de code que tu as donn&#233; ne fonctionneras pas 
il faut plus de param&#232;tres :

type
  TForm1 =   class (TForm)
    procedure mon_action(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;
  tmp: TShape;



procedure TForm1.mon_action(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);  // si non tu as belle erreur a la compilation
begin
  //...
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
  tmp : = TShape.create(Self); // o&#249; Nil o&#249; tout autre composant conteneur mais pas rien
  tmp.OnMouseDown := mon_action; //Le nom de ta procedure
end;

Comme ceci &#231;a fonctionne 

@+
Cirec

cptpingu · Answer

2 solutions:
- Soit tes TShapes existent &#224; la cr&#233;ation et tu clique sur onMouseDown dans l'inspecteur d'objet pour lui assigner une procedure
- Soit tes TShapes n'existent pas avant l'execution et tu assigne une procedure a l'evenement OnMouseDown pendant l'execution.
Lors de la cr&#233;ation d'un TShape tu fais simplement ceci:

procedure mon_action()
begin
  ...
end;

var
tmp: TShape
begin
  tmp := TShape.create();
  tmp.OnMouseDown := mon_action //Le nom de ta procedure
end;

PS: L'expression "En fait" tu es pas oblig&#233; de la r&#233;p&#233;ter 4 fois...

cptpingu · Answer

Oui c'est exact, je l'ai fais un peu "l'arrache" (ca fait un moment que je suis passer au C, j'oubli parfois quelques details...)

cs_OhAime · Answer

Merci beaucoup!!

Evenement sur un Tshape créé

4 réponses

Votre réponse