Discussion :

[cincap]

Bonjour à toutes et à tous,

J'ai un événement onclick sur un composant Tlistbox (qui a déjà un item) :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TFormtest.testClick(Sender: TObject);
begin
   if Tlisttest.ItemIndex <> -1 then
    p1.enabled := true
  else
    p1.enabled := false;
end;

Par contre, j'aimerai aussi pouvoir cliquer sur un composant Timage et Tbutton afin d'afficher le panel.

J'ai bien essayer ceci mais sans succès :

Code :

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

1
2
 
testClick(Sender);

Je pense qu'il faut intercepter l'évenement onclick, c'est que je coince.

Merci pour éventuellement une solution,

@+,

Cincap

[Rayek]

Pour le TButton , ce n'est pas bien compiqué

Code :

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

1
2
 
Button1.Click;

Pour l'image, il te faut passer en sender l'image

Code :

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

1
2
 
ImgClick(img);

[cincap]

@ Rayek, j'ai pas bien compris, en fait, au lieu de cliquer sur mon tlistbox pour faire apparaitre mon panel, j'aimerai récupérer l'événement du click sur le Tlistbox par le click sur un Timage ou Tbutton :

Evénement sur click d'un Tlistbox qui se nomme "test" :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TFormtest.testClick(Sender: TObject);
begin
   if test.ItemIndex <> -1 then
    p1.enabled := true
  else
    p1.enabled := false;
end;

Il faudrait récupérer la même chose avec l'évenement onclick d'un Timage ou Tbutton.

Ta solution n'est pas comprise.

@+,

Cincap

[Rayek]

Ok, j'avais mal compris

En fait tu reprends ton code dans le onclick de ta TListBox et tu le mets dans le OnClick de ton bouton/image.

Si ce n'est pas cela, je ne vois pas ce que tu veux

[cincap]

Testclick étant l'évenement du Tlistbox
Test étant le nom donné à mon Tlistbox

Code de mon bouton :

Code :

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

1
2
3
4
5
 
procedure TFormtest.btestClick(Sender: TObject);
begin
testClick(test); 
end;

@+,

Cincap

[cincap]

Trop simple, cela ne fonctionne pas d'ou l'origine de mon topic.
Fais un essai concret pour constater la difficulté.

@+,

Cincap

[Rayek]

Pour que ton panel s'affiche il faut obligatoirement qu'un élément de la TListbox soit sélectionnée.

J'ai du mal à comprendre vraiment ce que tu veux faire.

Tu veux :

1- Sélectionner un élément de la TListbox puis cliquer sur un TBouton pour afficher un panel ?

ou

2- Pouvoir afficher un Panel en cliquant sur la TListBox ou sur un TButton pour afficher un panel ?

[cincap]

@ Rayek, afficher un panel avec un Tbutton, pas compliqué.

Afficher un panel avec un Timage, pas compliqué.

Par contre récupérer exactement l'évenement d'un click sur un Tlistbox, et le commander par un click d'un Tbutton ou d'un Timage c'est une autre affaire.

Je ne vais pas trop insister.

Merci,

@+,

Cincap