Bonjour à tous,
Je veux créer un objet (un boutton par exemple) dynamiquement sur unr Form en mode modale.
Dans les sources j'ai trouvé un code qui parait sympathique. (permet de faire une verif au moment de la libération)
  Objects: array of TControl;
procedure TForm1.Button2Click(Sender: TObject);
begin
  setlength(Objects,length(Objects)+1);
  Objects[length(Objects)-1]:=TButton.create(Application);
  (Objects[length(Objects)-1] as TButton).Parent:=Form1;
  (Objects[length(Objects)-1] as TButton).Name:='MyButton';
  (Objects[length(Objects)-1] as TButton).Caption:='MonBouton';
  (Objects[length(Objects)-1] as TButton).Top:=100;
  (Objects[length(Objects)-1] as TButton).Left:=20;
  end;

En le testant avec une Form puis F9....ça fonctionne.
En l'incorporant à une application (style page principale avec menu qui ouvre une autre Form2 en mode modale) j'applique ce code sur cette Form2 rien ne s'affiche mais le bouton est crée. (j'ai une exeption en recréant le bouton).
Je pense que celà provient du mode modale mais pourquoi ????
A+ et Merci

Salut,
Je suis comme toi, j'aimes bien le code propre......Là j'avais mis le code brute de décoffrage.
Exact, celà fonctionne.... peut-être l'histoire de la variable....
J'en ai profiter pour lire ton Tuto sur les procedure  pour créer des objets.......Très interressant...celà fait des années (et plus) que je programme, et j'en apprends tous les jours.
Je vais m'en servir pour mes objets dynamiques....
allez A+ et merci

salut,

  (Objects[length(Objects)-1] as TButton).Parent:=Form1;

En l'incorporant à une application (style page principale avec menu qui ouvre une autre Form2 en mode modale) j

suivant ce que tu veux faire avec le buttoun, tu peux garder une ref (ptr) dans un champs de la form. (au lien d'une var local)

A+

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

@gebu: en fait, comme te le dit Loda, c'est le problème Form1 <> Form2. Si tu changes ton code (copier-coller) mais pas le nom de la variable, deux choses arivent :
- Soit Delphi te balance des jurons parce qu'il ne trouve pas Form1.
- Soit tu as mis Unit1 dans les uses et alors là le code compile sans problème mais ne fait pas ce que tu veux.

C'est la deuxième chose qui vient de t'arriver.
En parlant de ça, renomme tes fiches ! Au moins, quand tu reliras le code, tu te diras "nondidjou ! Ma quésquésaféla ?"

++
Flo

Salut,
Les Form1 et Form2 c'est juste pour les tests, en vérité ma page d'accueil s'appelle toujours Fprincipal et le reste suivant l'application.(j'applique des conventions d'écriture que je me suis fixé).
Par contre le tableau "Objects: array of TControl;" peut-être déclaré sur plusieurs Form et peut-être que là il y a confusion.....
A+

Salut ,
Si c'est très clair, d'ailleurs j'essaie d'utiliser le moins de varable possible (je viens du TurboPascal Dos ou il fallait être économe sur le code....les machines n'étaient pas des bêtes de course....d'ou j'ai gardé quelques habitudes...).
Néanmoins depuis que je programme, j'en apprends encore et franchement je n'est pas honte.
Merci à tous les deux de vos réponses claires.
A+

re,

bin je suis content de savoir que c'est clair pour toi :-)

bon code !

Loda

---

Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

@florenth : SetLength(Objects, Length(Objects) + 1); Objects[High(Objects)] := B; Pourquoi prévoir un tableau s'il n'y a qu'un seul bouton à créer ? A+