Avoir l'effet style Macintosh sur vos Forms




    begin
     SetWindowLongA(handle,-20,$400000);
// on bouge une peu la form pour redessiner
     left := left - 1;
    end;