I. aldweb
II. Gratuitiels PC
III. Gratuitiels Palm
IV. Partagiciels Palm
V. iziBasic Palm
VI. Connaissance Palm
VII. Ordinateur Poche
VIII. miniPortail
Tous les contenus Articles Réactions Articles Téléchargements Forum Livre d'or Liens Nouvelles [fr] et [en] [fr] seulement [en] seulement Rechercher
Météo Lyon
aldweb contre le SPAM
visiteurs
visiteurs en ligne
Je vous remercie de prendre le temps d'écrire ce message.
Votre nom (ou pseudo) :
Votre e-mail :
S'abonner à ce fil de discussion :
Vous répondez à aldweb qui a écrit :
Procedure SetMyLabel(MyObjID:UInt16);var MyString: String; FrmP: FormPtr; ObjI: UInt16;begin MyString:='Toto'; FrmP:=FrmGetActiveForm; ObjI:=FrmGetObjectIndex(FrmP,MyObjID); CtlSetLabel(FrmGetObjectPtr(FrmP,ObjI),@MyString);end.
Procedure SetMyLabel(MyObjID:UInt16);type StringPtr = ^String;var MyStringP: StringPtr; FrmP: FormPtr; ObjI: UInt16;begin MyStringP^:='Toto'; FrmP:=FrmGetActiveForm; ObjI:=FrmGetObjectIndex(FrmP,MyObjID); CtlSetLabel(FrmGetObjectPtr(FrmP,ObjI),MyStringP);end.
Document généré en 0.07 seconde