Pour ceux qui comme moi n'ont jamais vu la procédure CreateParams (ou qui ont de la peine en Anglais) voici comment faire:
Il suffit simplement de rajouter ce texte avant implementation
procedure CreateParams(var Params: TCreateParams); override;
Attention à ne pas oublier override;
si non ça ne prendra pas en compte vos paramètres.
Ensuite après implementation, copier/coller ce code:
procedure TFormChat.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := params.ExStyle or WS_Ex_AppWindow;
end;
Voilà le tout est joué!
Encore merci à
Delphiprog pour m'avoir mis sur la piste!