procédé TfmForm.FormCreate (expéditeur : TObject) ;
commencer
ShowWindow (fmChildForm.Handle, SW_HIDE) ;
SetWindowLong (fmChildForm.Handle, GWL_EXSTYLE, getWindowLong (fmChildForm.Handle, GWL_EXSTYLE) ou WS_EX_TOOLWINDOW) ;
ShowWindow (fmChildForm.Handle, SW_SHOW) ;
extrémité ;