Solution ultime pour bloquer la croix rouge !

J'ai trouvé l'arme fatale contre la fermeture d'une form par la croix rouge ! Voir sur le fil de discussion concernant mon site:
https://panoramic.1fr1.net/t1356-nouvelle-dll-setwindowbuttons

C'est sur mon site dans la distribution des DLL's divers.

En prime, j'ai donné la possibilité d'enlever ou remettre les boutons Réduire et Agrandir d'une fenêtre !

Bravo!

Je sais que je suis parfois un peu lourd, donc par respect, je retire.

Mais je reconnais que tu as la classe.

Cordialement

Non, pas vraiment.

En fait, la maîtrise de la croix rouge est une hantise pour moi depuis longtemps. J'ai essayé de multiples solutions, avec les moyens de Panoramic. Témoin en est mon IDE en français où j'ai tenté de maîtriser cela en Panoramic seul - avec la perte de la possibilité de redimensionner les fenêtres et un aspect visuel plus frustre.

Depuis plusieurs mois, je cherche une solution par Delphi, mais sans véritable succès. Puis, on_close m'a donné des ailes, mais ce n'était pas non plus la solution. Puis, le déclic est venu aujourd'hui, je suis sincèrement ravi d'avoir réussi cela et j'étais impatient de partager cela avec vous tous.

On peut maintenant, à volonté:
- désactiver ou réactiver la croix rouge sur n'importe quelle form
- escamoter ou réafficher les boutons de réduction/agrandissement sur n'importe quelle form
et ceci séparément pour chaque form ! Ce n'est pas un outil "massue" qui bloque tout ou autorise tout !

Et le plus beau dans l'affaire, c'est qu'il ne s'agit que de quelques lignes en Delphi, je je mets d'ailleurs en ligne ci-dessous, pour ceux qui s'y intéressent. Si Jack trouve cela utile, je pense qu'il est facile d'intégrer cela sous forme de petites commandes Panoramic, genre:
FORM_CLOSE_ON n
FORM_CLOSE_OFF n
FORM_SIZE_ON n
FORM_SIZE_OFF n
avec n étant le numéro de la form. Ce serait élégant, non ? Voici le code de la dll:

Code:

library SetWindowButtons;

uses
  Windows
;

procedure RepaintWindow(const hWnd: integer);
begin
//    InvalidateRect (hWnd, nil, false);
//    UpdateWindow (hWnd);
    SetWindowPos(hWnd,0, 0, 0, 0, 0,
    SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE or SWP_DRAWFRAME);
end;

function SetMinimizeMaximize(const hnd,mode: integer): integer; stdcall; export
var
    l: DWord;
begin
    if mode>0 then begin
        l := GetWindowLong(hnd, GWL_STYLE);
        l := l or (WS_MINIMIZEBOX);
        l := l or (WS_MAXIMIZEBOX);
        l := SetWindowLong(hnd, GWL_STYLE, l);
    end else begin
        l := GetWindowLong(hnd, GWL_STYLE);
        l := l and not (WS_MINIMIZEBOX);
        l := l and not (WS_MAXIMIZEBOX);
        l := SetWindowLong(hnd, GWL_STYLE, l);
    end;
    RepaintWindow(hnd);
    result := 0;
end;

function SetCloseBox(const hnd,mode: integer): integer; stdcall; export
var
    h: THandle;
begin
    if mode>0 then begin
        h := GetSystemMenu(hnd, true);
        DeleteMenu(h, 6, 1024);
    end else begin
        h := GetSystemMenu(hnd, false);
        DeleteMenu(h, 6, 1024);
    end;
    RepaintWindow(hnd);
    result := 0;
end;

exports
    SetMinimizeMaximize
    ,SetCloseBox
;

begin

end.

Bravo

Super Klaus !
T'es un chef !!

Et bien, la suite vient ! Dans la même DLL, j'ai rajouté une fonction pour gérer le degré de transparence de n'importe quelle form ! Effet stupéfiant garanti ! On peut ainsi faire des form évanescentes ou doucement apparaissantes, en appelant cette fonction avec un timer pour varier le degré de transparence de 255 à 0 ou inversement...

Voilà qui ouvre des horizons insoupçonnés ! ça devient psychédélique !