====== TForm ======
===== Déclencher l'affichage complet de la Form =====
Grace à cette astuce, on est sûr que le dessin de la Form et de tous ses contrôles est terminé...
<code delphi>
procedure TForm1.FormCreate(Sender: TObject);
begin
   FFirstActivate        := True;
   ...
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
   if FFirstActivate then
   begin
      FFirstActivate := False;
      Application.ProcessMessages;
      { ICI on est sur que tous les Controls ont étaient dessinés }
      ...
   end;
end;

</code>
===== Trouver le TForm parent =====
Il peut être quelquefois nécessaire de connaitre le TForm parent d'un composant.\\
Par exemple pour récupérer son Handle...

Dans l'unité ''Forms'' :
  * [[https://lazarus-ccr.sourceforge.io/docs/lcl/forms/getparentform.html|GetParentForm(Control: TControl; TopForm: Boolean = True ):TCustomForm;]]\\ pour récuperer le ''TCustomForm'' le plus haut contenant le ''TControl''.