Lancer un événement après le OnCreate de TForm

Bojour,

Je développe un composant pour enregistrer des paramètres de l'application dans le registre, l'idée est de générer une clé au moment de la création du composant dans l'IDE donc je transforme l'horodatage actuel en DateFile pour générer la clé qui correspond à un entier de 4 octets qui sera transformé en texte pour l'utilisé ultérieurement.

Le composant à deux événements OnLoadSettings et OnSaveSettings je souhaite placer le premier juste après le OnCreate et le second juste avant le OnDestroy de la forme.

Merci

J'ai remarqué que les propriétés de la fiche sont toujours placées au amont du fichier dfm c'est à dire qu'elles sont chargées avant celles des objets enfants j'ai essayé le déplacement de quelques unes vers le bas de fichiers et là j'obtiens une erreur de lecture de fichier ce qui est bonne nouvelle cela me permets de remplacer des deux événements OnCreate et OnDestroy par les miens après le chargement du nouveau composant.

Code:

---

1 2 3 4 5 6 7 8

procedure TUniqueID.ReadState(Reader: TReader); begin inherited ReadState(Reader); FHostOnCreate := TForm(Owner).OnCreate; FHostOnDestroy := TForm(Owner).OnDestroy; TForm(Owner).OnCreate := NewOnCreate; TForm(Owner).OnDestroy := NewOnDestroy; end;

---

fichier dfm:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

object Form1: TForm1 Left = 198 Top = 114 Caption = 'Form1' Color = clBtnFace ... OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object UniqueID1: TUniqueID Ident = '587AA633' OnLoadSettings = UniqueID1LoadSettings OnSaveSettings = UniqueID1SaveSettings Left = 88 Top = 88 end end

---