Discussion :

[Invité]

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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