Discussion :

[peter27x]

Hello,

j'ai un Panel_1, qui contient divers éléments (TImage, TLabel, un autre sousPanel...), j'aimerai que lors d'un click n'importe où dans le Panel_1 (sur lui même ou un de ses éléments cités ci avant), le programme exécute une seule et même procédure de gestion de click définie par mes soins.

J'ai donc codé cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
{définition de la TForm contenant le panel_1}
...
  private
    procedure GestionClick(sender:TObject);
 
{create de la TForm}
...
  panel_1.OnClick:=GestionClick;

Hélas, ça ne marche que si le click est sur le panel_1 lui même, mais pas sur un des ses éléments enfants...

Existe t'il une manière simple et rapide de prendre en compte tout click à l'intérieur d'un panel ?

Merci.

EDIT : je viens d'avoir une idée : faire une boucle sur les éléments du Panel, qui pour chacun fait un onClick:=GestionClick ... je vais tester...

EDIT2:
J'ai codé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  for i:=1 to Panel_1.controlCount do
  begin
    Panel_1.controls[i-1].OnClick:=GestionClick;
  end;

Mais Delphi me dit qu'il connait pas onClick dans cette syntaxe là... pourtant c'est un evt de tControl... comprends pas.

EDIT3: j'ai collé un Shape avec Brush = clear qui couvre tout le panel, puis géré le onMouseDown de ce dernier... ça marche.

[cincap]

Bonsoir à toutes et à tous,

@ Peter27x, tu ne pourrais pas définir le onclick de ton panel mettre le code et associé avec l'onglet "Evénements" le Onclick du panel1 aux autres éléments présents sur la fiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm1.Panel1Click(Sender: TObject);
begin
ton code......
end;

Onglet "Evénements"

Image1.onclick "=" Panel1Click

panel2.onclick "=" Panel1Click

Label1.onclick "=" Panel1Click

etc...

@+,

Cincap

[peter27x]

Bonsoir à toutes et à tous,

@ Peter27x, tu ne pourrais pas définir le onclick de ton panel mettre le code et associé avec l'onglet "Evénements" le Onclick du panel1 aux autres éléments présents sur la fiche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm1.Panel1Click(Sender: TObject);
begin
ton code......
end;

Onglet "Evénements"

Image1.onclick "=" Panel1Click

panel2.onclick "=" Panel1Click

Label1.onclick "=" Panel1Click

etc...

@+,

Cincap

Ben si, mais c'était justement ce que je cherchais à éviter, devoir tous les définir un à un ! Devoir ensuite gérer à chaque changement (ajout d'éléments...)... etc.

[GoustiFruit]

Essaye ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
var
  Click: TNotifyEvent;
  i1: Integer;
begin
  Click := Panel1Click;
  for i1 := 0 to Panel1.ControlCount - 1 do begin
    if IsPublishedProp(Panel1.Controls[i1], 'OnClick') then
      SetMethodProp(Panel1.Controls[i1], 'OnClick', TMethod(Click));
  end;
end;

[peter27x]

Essaye ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
var
  Click: TNotifyEvent;
  i1: Integer;
begin
  Click := Panel1Click;
  for i1 := 0 to Panel1.ControlCount - 1 do begin
    if IsPublishedProp(Panel1.Controls[i1], 'OnClick') then
      SetMethodProp(Panel1.Controls[i1], 'OnClick', TMethod(Click));
  end;
end;

Cool, merci, si je comprends bien la dernière ligne, ça redirige l'evt onClick de tous les contrôles du panel vers la methode click du panel ?

Sympa.

[GoustiFruit]

Oui, ça redirige vers Panel1Click. PanelClick1 est d'abord typecasté (?) en TNotifyEvent parce que si on fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetMethodProp(Panel1.Controls[i1], 'OnClick', TMethod(Panel1Click));

ça ne passe pas.

[peter27x]

Oui, ça redirige vers Panel1Click. PanelClick1 est d'abord typecasté (?) en TNotifyEvent parce que si on fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetMethodProp(Panel1.Controls[i1], 'OnClick', TMethod(Panel1Click));

ça ne passe pas.

Et comme ça, ça passerait pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetMethodProp(Panel1.Controls[i1], 'OnClick', TMethod(TNotifyEvent(Panel1Click)));

[cincap]

Bonjour à toutes et à tous,

@ Peter27x et @ GoustiFruit, pour bien comprendre l'utilisation de ce topic, en D6 en compilation, j'obtiens les erreurs suivantes:

1. IsPublishedProp = identificateur non déclaré
2. SetMethodProp = identificateur non déclaré

Pourquoi ?

@+,

Cincap

[cincap]

Ok il faut rajouter dans le uses :

{$R *.dfm}

uses
TypInfo;

Maintenant je serai curieux de voir le code final si ce n'est top secret.

@+,

Cincap

[peter27x]

Ok il faut rajouter dans le uses :

{$R *.dfm}

uses
TypInfo;

Maintenant je serai curieux de voir le code final si ce n'est top secret.

@+,

Cincap

Salut,

j'utilise pas les directives {$

Du coup je suis allé voir dans le F1, j'ai vu que la A+ activait l'alignement des champs dans les classes, alors je me suis amusé à écrire une classe avec les champs pas alignés, avec la directive {$A+}, mais ça ne m'a pas aligné mes champs !

Comment ça marche ces directives ?

Est ce vraiment nécessaire ?

Pour l'instant je code sans, alors je vois pas trop ce que ça pourrait m'apporter.

Merci !


EDIT : ok, ça n'a rien à voir !!!! Je viens de lire autre chose dans le F1, c'est un alignement au niveau des octets...

[cincap]

@ Peter27x, j'indiquais l'ajout du Uses Typinfo et non d'une directive !

Donc comme le topic est résolu je reste sur ma faim et à mon avis beaucoup d'autres membres pour comprendre la solution finale.

@+,

Cincap

[peter27x]

@ Peter27x, j'indiquais l'ajout du Uses Typinfo et non d'une directive !

Donc comme le topic est résolu je reste sur ma faim et à mon avis beaucoup d'autres membres pour comprendre la solution finale.

@+,

Cincap

Je comprends pas bien ton problème !?

Tu l'as la solution, non ? Tu l'as dit juste avant...

[dragonno]

Il voulait voir le projet peut-être^^
Ce que tu veux faire avec quoi

ça peut être utile peut-être aux autres^^

[peter27x]

Il voulait voir le projet peut-être^^
Ce que tu veux faire avec quoi

ça peut être utile peut-être aux autres^^

Mais je comprends rien à ce que vous dites !

Vous pouvez la consulter cette file non !? Vos écrivez dedans !