Guidance
指路人
g.yi.org
software / rapidq / Examples / QObject / Object / Doc French / QFormEx.html

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
Appendix A: QFormEx  
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 et la fonctionnalité tray icon.


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 
DeskBar BOOLEAN LE False
Si true , l'application sera dans la barre outil du bureau lorsque la fenetre sera reduite.
Mettre a false si l'évenement WndProc est utilisé.
FormStyle INTEGER LE fsNormal
le style fsStayOnStop est supporté

QFormEx Methodes

Methode Type Description Parametres




AddTrayIcon SUB Additionne l'icone application dans la barre outil du bureau 0
DelTrayIcon SUB Supprime l'icone application de la barre outil du bureau 0

QFormEx Evenements

Evenement Type Déclenchement Parametres




OnDrag (File$) Dépose fichier 1
OnTrayClick Click bouton droit sur icone application de la barre outil 0
OnTrayDblClick Double click sur bouton gauche sur icone application de la barre outil 0
OnMinimise Mise en réduction de la fenetre 0

QFormEx Exemple1

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

declare Sub depose(file as string)

CREATE Form AS QFormEx
  width=300
  Height=200
  Caption="Drag and drop files"
  center
  DragEnable=true
  OnDrag=Depose
  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

QFormEx Exemple2

$TYPECHECK ON
$INCLUDE "rapidq.inc"
$INCLUDE "Object\QFormEx.inc"
declare sub close
declare sub show
declare sub menu
declare sub hide

CREATE Form AS QFormEx
  OnClose=Close
  OnTrayDblClick=Show
  OnTrayClick=Menu
  OnMinimise=Hide
END CREATE

CREATE PopUpMenu AS QPOPUPMENU
    Alignment = 1
    CREATE Open AS QMENUITEM
        Caption = "&Open"
        OnClick =show
    END CREATE
    CREATE Seperator AS QMENUITEM
        Caption = "-"
    END CREATE
    CREATE MeExit AS QMENUITEM
        Caption = "&Exit"
        OnClick =Close
    END CREATE
END CREATE
form.addtrayicon
form.showmodal

sub close
  form.deltrayicon
  Application.terminate
end sub

sub show
  form.visible=true
end sub

sub Hide
  form.visible=false
end sub

sub menu
  popupmenu.popup(screen.MouseX,screen.MouseY)
end sub
 
 

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-10-07 23:55:44