Comment déclarer .OnDblClick dans une procedure
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:
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