Recherche:

C'est bien possible. :wink:
Je ne me suis pas occupé de ca. Pas défaut, j'ai l'habitude de tout mettre en privé.

De rien. En fait, j'ai testé et découvert en même temps que toi ...

Si le problème est résolu, n'oublie pas d'utiliser le bouton [Résolu].

:wink:

Modifie comme ca :

Style := WS_POPUP or WS_DLGFRAME or WS_SIZEBOX;

:wink:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)

J'ai trouvé ca (pas testé) :

procedure TForm1.CreateParams (var Params: TCreateParams);
const
ThickFrames: array[Boolean] of DWORD = (0, WS_THICKFRAME);
begin
inherited;
with...