ajouter un menu sur un logiciel

smed79 le 11 novembre 2008 à 15h38

bonjour,
je ne sais pas si je suis dans le bon forum : mais je tente quand même. ... (si non merci de deplacer mon message.)
j'utilise un serveur local (Apache, MySQL et PHP) Mov'AMP 0.6 que j'ai télécharger ici : http://www.movamp.net
pour produire les différent services plus facilement j'ai manipuler le menu pour être plus accessible quieter a lorigine comme ça:

< inclued picture >

pour avoir cette resultat:

< inclued picture >

et pour finir je veux ajouter un menu pour parcorire un dossier avec le chemin : \mnt\var\www

code origin:

object Form1: TForm1
Left = 479
Top = 106
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
ClientHeight = 124
ClientWidth = 268
Color = clBtnFace
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PopupMenu1: TPopupMenu
MenuAnimation = [maBottomToTop]
object Raccourcis1: TMenuItem
Caption = 'Raccourcis'
object Accueil1: TMenuItem
Caption = 'Accueil'
OnClick = Accueil1Click
end
object phpMyAdmin1: TMenuItem
Caption = 'phpMyAdmin'
OnClick = phpMyAdmin1Click
end
object phpinfo1: TMenuItem
Caption = 'phpinfo()'
OnClick = phpinfo1Click
end
end
object Quitter2: TMenuItem
Caption = 'Quitter'
OnClick = Quitter1Click
end
end
object RxTrayIcon1: TRxTrayIcon
Hint = 'Mov'#39'AMP 0.5'
Icon.Data = {code icon ici}
PopupMenu = PopupMenu1
OnDblClick = RxTrayIcon1DblClick
Left = 24
end
end

code modifier:

object Form1: TForm1
Left = 479
Top = 106
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
ClientHeight = 124
ClientWidth = 268
Color = clBtnFace
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PopupMenu1: TPopupMenu
MenuAnimation = [maBottomToTop]
object Accueil1: TMenuItem
Caption = '[ Accueil ]'
OnClick = Accueil1Click
end
object phpMyAdmin1: TMenuItem
Caption = '[ phpMyAdmin ]'
OnClick = phpMyAdmin1Click
end
object phpinfo1: TMenuItem
Caption = '[ phpinfo() ]'
OnClick = phpinfo1Click
end
object Quitter2: TMenuItem
Caption = '[ Quitter ]'
OnClick = Quitter1Click
end
end
object RxTrayIcon1: TRxTrayIcon
Hint = 'Mov'#39'AMP 0.6'
Icon.Data = {code icon ici}
PopupMenu = PopupMenu1
OnDblClick = RxTrayIcon1DblClick
Left = 24
end
end

merci

répondre