Discussion :

[Kinesra]

Salut les gars.

Sur ma forme, j'ai un composant TPageControl avec 2 onglets.
Dans l'onglet N°2, j'ai déposé une ListBox dans laquelle je voudrais venir déposer des noms de fichiers venant de l'explorateur.

Problème :
Quand la ListBox se trouve sur la forme, pas de souci, tout marche nickel.
Quand la Listbox se trouve sur un onglet du PageControl, rien à faire, ça marche pas !

Pourquoi ?

[Kinesra]

Bon, je réponds à ma question moi-même en espérant aider les autres.

La solution : Il faut modifier ListBox.WindowProc de manière à intercepter et gérer le message venant du système.

Dans le OnCreate de la forme :

Code :

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

1
2
3
    OldLBWindowProc := ListBox.WindowProc; // OldLBWindowProc est une variable de type TWndMethod
    ListBox.WindowProc := NewLBWindowProc;
    DragAcceptFiles(ListBox.Handle, True);

et la procedure NewLBWindowProc ressemble à ça :

Code :

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

1
2
3
4
5
procedure TForm1.NewLBWindowProc(var Message: TMessage);
begin
  if Message.Msg = WM_DROPFILES then WMDROPFILES(Message); // Intercepte le message WM_DROPFILES
  OldLBWindowProc(Message); // On fait appel à l'ancien WindowProc de ListBox pour gérer les autres messages
end;

Il faut évidemment définir WMDROPFILES pour expliquer quoi faire avec l'objet 'Droppé'

Ne pas oublier de restituer tout le bazar à la destruction de la forme (OnDestroy) : ListBox.WindowProc := OldLBWindowProc

Bye.