Discussion :

[Ardely]

Bonjours,

Je me suis crée une ListBox Dynamiquement qui fonctionne correctement..,
mais dans ma procedure je ne sais pas comment déclarer l'evénement .OnDblClick.

example:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
type
  TFrameBt1Confugurator = class(TFrame)
    ..
    procedure ListBoxQJobDblClick(Sender: TObject);
    ..
 
implementation
..
Procedure CreeWizardListBox;
Begin
  ..
  ListBoxQJob            := TListBox.Create(ToFrame1.TFramePanel2);
  ListBoxQJob.Parent      := ToFrame1.TFramePanel2;
  ..
  ListBoxQjob.OnDblClick  := ListBoxQJobDblClick;
 
end;
 
procedure TFrameBt1Confugurator.ListBoxQJobDblClick(Sender: TObject);
begin
    Showmessage('.. test');
end;

L'erreur est que le compilateur dit: ListBoxQJobDblClick n'est pas déclaré, comment la faire déclarer correctement dans ma procedure.


Grand Merci pour vôtre aide.
Salutations
Ardely

[LadyWasky]

, merci

bah si, ça ma l'air très très bien comme ça

[Guile]

Salut

Pour moi, le problème vient du fait que ListBoxQJobDblClick est une procédure de TFrameBt1Confugurator.

Or ta procédure CreeWizardListBox n'appartient pas à TFrameBt1Confugurator.

Donc tu as 2 solutions :
Soit tu déclares CreeWizardListBox comme procédure de TFrameBt1Confugurator
Soit tu déclares une instance de TFrameBt1Confugurator dans CreeWizardListBox et tu pourras accéder à MaFrameBt1Configurator.ListBoxQJobDblClick

Bon courage

[Ardely]

Bonsoir, pour info
Tu as raison
CreeWizardListBox n'appartient pas à TFrameBt1Confugurator tout simplement.

Merci pour ton aide...
Salutations