Bonjour à toutes et à tous,
J'utilise cette evenement
Pour des raisons obscur je dois reproduire cette evenement dans l'evenement doubleclique, mais cela compile pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TFInfosBase.ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then Begin RetourPourRichEdit := ListBox1.Items[ListBox1.itemindex]; Close; end; end;
Je vois vraiment pas les paramètres qu'ils faut envoyés.
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 procedure TFInfosBase.ListBox1DblClick(Sender: TObject); begin ListBox1KeyDown(Sender,[VK_RETURN],[ssShift]); Marche pas ListBox1KeyDown(Sender,VK_RETURN,[ssShift]); Marche pas ListBox1KeyDown(Sender,VK_RETURN,ssShift); Marche pas ListBox1KeyDown(Sender,#13,[ssShift]) ; Marche pas ListBox1KeyDown(Sender,#13,Nil); Marche pas ListBox1KeyDown(Sender,#13,emptyparam); Marche pas // RetourPourRichEdit := ListBox1.Items[ListBox1.itemindex]; // Close; end;
MErci de vos lumières
Partager