Documentation composant par D.Glodt (c)2000-2001 Appendix A: QFormEx

QFormEx Composant

QFormEx est identique a un composant QForm avec la fonctionnalité Drag&Drop de fichier.

 

 
 
 
 
 

QFormEx Proprietés
Champs Type L/E Defaut
DragEnable BOOLEAN LE False
Acceptation de depose fichier dans la fenetre d'application 
DragZone QRECT LE
Zone de dépose fichier 

QFormEx Methodes
Methode Type Description Parametres
DragMessage SUB(Hwnd&,uMsg&,wParam&,lParam&) Traite les messages de dépose fichier 4

QFormEx Evenements
Evenement Type Déclenchement Parametres
OnDrag (File$) Dépose fichier 1

QFormEx Exemples

$TYPECHECK ON
$INCLUDE "rapidq.inc"
$INCLUDE "Object\QFormEx.inc"

declare Sub depose(file as string)
declare Sub FormWndProc(Hwnd&, uMsg&, wParam&, lParam&)

CREATE Form AS QFormEx
  width=300
  Height=200
  Caption="Drag and drop files"
  center
  DragEnable=true
  OnDrag=Depose
  WndProc=FormWndProc
  CREATE Listbox as QLISTBOX
    Width=150
    height=100
  END CREATE
END CREATE

form.DragZone.Left=listbox.left
form.DragZone.Top=listbox.Top
form.DragZone.Right=listbox.Width
form.DragZone.Bottom=listbox.Height
Form.ShowModal

Sub Depose(file as string)
  ListBox.AddItems(file)
End Sub

Sub FormWndProc (Hwnd&, uMsg&, wParam&, lParam&)
  form.dragmessage(Hwnd&, uMsg&, wParam&, lParam&)
END Sub