1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
| def Commande(event):
print 'pass'
def autre(CreateComponent):
f = CreateComponent("TForm", None)
f.SetProps(Position="poMainFormCenter", Width=520, Height=300, BorderStyle="bsSingle", BorderIcons=["biSystemMenu","biMinimize"], Caption="Autres")
f.Font.Name = "Tahoma"
LTitle = CreateComponent("TLabel", f)
LTitle.SetProps(Parent=f, Left=40, Top=30, Caption="")
LTitle.Font.Style = ["fsBold"]
List = CreateComponent("TListBox", f)
List.SetProps(Parent=f, Left=40, Top=50, Width=430, Height=140, ItemIndex=-1)
BLocal = CreateComponent("TButton", f)
BLocal.SetProps(Parent=f, Left=40, Top=210, Width=120, Height=25, Caption="Test1", OnClick=Commande)
BFTP = CreateComponent("TButton", f)
BFTP.SetProps(Parent=f, Left=170, Top=210, Width=120, Height=25, Caption="Test2", OnClick=Commande)
BRestore = CreateComponent("TButton", f)
BRestore.SetProps(Parent=f, Left=300, Top=210, Width=80, Height=25, Caption="Test3", OnClick=Commande)
BOK = CreateComponent("TButton", f)
BOK.SetProps(Parent=f, Left=390, Top=210, Width=80, Height=25, Caption="Fermer", ModalResult=1, Default=1, Cancel=1)
f.ShowModal() |
Partager