désactiver la croix de fermeture d'une fenêtre

Bonsoir,

Est-il possible de désactiver la croix de fermeture d'une fenêtre (croix blanche dans le rectangle rouge, en haut à droite d'une fenêtre) ? Ou, encore mieux, de l'éliminer ?

Salut Ambroise, la réponse est non (sauf erreur)

Mais tu as 2 possibilités:
1) BORDER_HIDE N mais la tu n'a plus "réduire et minimize" (en fait plus de bandeau)
2) ON_CLOSE N qui te permet gérer la sortie par la croix "fermer" comme tu le souhaites.

Sauf que j'ai un gros doute, voir le code ci-dessous:

Code:: label fin,start

on_close 0,fin

gosub start
END

start:
print "XXXXXXX"
return
fin:
goto start
return

Chez moi çà ferme ???? confused

A+

EDIT; Après relecture de la doc, c'est normal que çà ferme, du coup j'ai pas de réponse.

.

C'est un sujet souvent débattu ici.

Non, on ne peut pas le faire directement en Panoramic.

Oui, on peut le faire avec des DLL.

Regarde ce liens:

fait par moi

Nardo hat eine schöne DLL geschrieben.
Nardo a écrit une DLL agréable.

Severin

Bonsoir Jean Claude,

Ta fenêtre affiche bien la croix de fermeture,... mais moi je voudrais la faire disparaître ! Very Happy

Bonsoir Klaus,

Ta dll m'intéresse.

Bonsoir Severin,

On la trouve où la dll de Nardo ?
Man findet sie, wo der dll von Nardo?

Nardo hat eine schöne DLL geschrieben.
Nardo a écrit une DLL agréable.

Die Quellen sind auf dem Gelände myDrive.ch
- Benutzername: @ Panorama nardo26
- Passwort: panoramic123

Erklärung hier im Forum.
Déclaration ici dans le forum
Severin

Ungenauer Benutzername
Nom d'utilisateur inexact

panoramic@nardo26

googl oh,oh,oh

Les sources sont sur le site myDrive.ch
- username:panoramic@nardo26
- password :panoramic123

Je te remercie.
Peux-tu m'expliquer comment on utilise une dll.
L'aide de Panoramic n'est pas claire.

Ich bedanke mir bei dir.
Du kannst mir erklären, wie man einen dll benutzt.
Die Hilfe(Gehilfe) von Panoramic ist nicht klar.

Such mal alle Beiträge von Nardo.
Hier ein Beispiel:

Rechercher fois tous les messages de Nardo.
Voici un exemple:

Code:: ' ******************************************************************************
' *** VARIABLEN FORM 000 EIGENSCHAFTEN FÜR FORM.DLL ERSTELLEN ******************
'
DIM FORM_BUTTON_Off13 :' =dll_call1("SetCLOSEOff",HANDLE(0)) Schließen deaktiviert
DIM FORM_BUTTON_Off14 :' =DLL_CALL2("SetMaximize",HANDLE(0),0)Vergrößern deaktiviert
DIM FORM_BUTTON_Off15 :' =DLL_CALL2("SetMinimize",HANDLE(0),0)Verkleinern deaktiviert
'
' ******************************************************************************
' ******************************************************************************
' *** FORM 0000 GRUNDFORM ERSTELLEN ********************************************
'
dll_on "form.dll"
FORM_BUTTON_Off13=dll_call1("SetCloseOff",HANDLE(0))
FORM_BUTTON_Off14=DLL_CALL2("SetMaximize",HANDLE(0),0)
FORM_BUTTON_Off15=DLL_CALL2("SetMinimize",HANDLE(0),0)
dll_off
'
'
' FORM 0000
TOP 0000,0
LEFT 0000,0
WIDTH 0000,SCREEN_X
HEIGHT 0000,SCREEN_Y-44
'
' *** FORMEN SCHRIFTART UND SCHRIFTGRÖSSE FESTLEGEN ****************************
'
FONT_NAME 0000,"Courier NEW"
FONT_SIZE 0000,08
'
' *** GRUNDFARBE SCHWARZ FÜR FORM 0000 ****************************************
COLOR 0000,000,000,000
'

Severin

Merci.
La croix de fermeture n'est pas cachée. Elle est simplement désactivée.
Comment modifier le code pour obtenir la disparition de la croix ?

Danke.
Das Kreuz von Verschluß(Schließung) ist nicht versteckt. Sie ist désactivée einfach.
Wie, den Kode zu ändern, um das Verschwinden des Kreuzes zu erhalten?

Ich glaube das Problem wollte Nardo noch lösen.
Hatte es noch nicht gelöst. das kreuz weigert sich zuverschwinden.

Je pense que le problème a été résolu encore Nardo.
Si elle n'avait pas encore été résolu. qui refuse de traverser à disparaître.

Severin

Severin, je te remercie beaucoup.
Severin, bedanke ich mir bei dir viel.

--------------------

Klaus, j'ai testé ta dll. le bouton "croix de fermeture" ne disparaît pas. Voici mon code :

Code:: dim res%
dll_on "c:\dossier\SetWindowButtons.dll"
res% = dll_call2("SetCloseBox",0,0)
dll_off

Ai-je oublié quelque chose ?

Bonsoir Ambroise, bonsoir à tous,
Pour ton problème de cacher la croix, il n'y a aucune solution à l'heure actuelle, mais la dernière version de Panoramic nous a apporté 3 nouvelles instructions: Minimize N, Maximize N et Normal N. Partant de ces 3 instructions, j'ai fait un petit programme qui permet de contourner le problème.
Tout d'abord, je cache les bordures de mon form avec border_hide, puis je crée un picture en lieu et place de la barre de titre que je colore comme je veux et enfin je crée 3 button qui vont remplacer les 3 symboles en haut à droite de la fenètre, à savoir le tiret pour minimiser, le carré pour agrandir et la croix pour fermer ou quitter. Il y en a un quatrième qui apparaitra à la place du carré quand la fenètre occupera tout l'écran et qui signifie réduire.
A chaque bouton est attribué une procédure qui affecte la fenêtre. Quand la fenètre est minimiser en bas de l'écran, il faut double cliquer dessus pour qu'elle reprenne sa taille précédente.
Maintenant, avec ce programme on peut soit cacher les 3 boutons ou 2 ou 1 seul au choix en utilisant hide ou même rendre inopérationnel le bouton de son choix avec inactive tout en le laissant apparent.
Voici le code:

Code:: label reduit,agrandit,termine,inferieur
width 0,600:left 0,(screen_x-width(0))/2:border_hide 0
picture 1:width 1,600:height 1,20:color 1,50,150,200
button 2:width 2,20:height 2,20:left 2,width(0)-70:font_bold 2:caption 2,"__":on_click 2,reduit
button 3:width 3,20:height 3,20:left 3,width(0)-45:font_bold 3:caption 3,"[]":on_click 3,agrandit
button 4:width 4,20:height 4,20:left 4,width(0)-20:font_bold 4:caption 4,"><":on_click 4,termine
button 5:hide 5:width 5,20:height 5,20:font_bold 5:caption 5,"[]]":on_click 5,inferieur
alpha 6:left 6,5:top 6,4:color 6,50,150,200:caption 6,"TITRE"
end

reduit:
minimize 0
return

agrandit:
maximize 0
width 1,screen_x:color 1,50,150,200
left 2,width(0)-70
hide 3:left 5,width(0)-45:show 5
left 4,width(0)-20
return

inferieur:
normal 0
width 1,600
left 2,width(0)-70
hide 5:left 3,width(0)-45:show 3
left 4,width(0)-20
return

termine:
terminate

En espérant t'avoir aidé,
A+ Wink

@Ambroise:
Essaie plutôt comme ceci:

Code:: dim res%,hnd%
dll_on "c:\dossier\SetWindowButtons.dll"
hnd% = handle(0)
res% = dll_call2("SetCloseBox",hnd%,0)
dll_off

En effet, le deuxième paramètre doit etre le HANDLE de la form concernée, pas son numéro !

Salut à tous,

Juste pour le plaisir, j'ai amélioré la présentation du code de Bignono.

Code:: label reduit,agrandit,termine,inferieur
width 0,600:left 0,(screen_x-width(0))/2:border_hide 0
picture 1:width 1,600:height 1,20:color 1,50,150,200
button 2:width 2,20:height 2,20:left 2,width(0)-70:font_bold 2
font_name 2,"marlett":caption 2,chr$(48):on_click 2,reduit
button 3:width 3,20:height 3,20:left 3,width(0)-45:font_bold 3
font_name 3,"marlett":caption 3,chr$(49):on_click 3,agrandit
button 4:width 4,20:height 4,20:left 4,width(0)-20:font_bold 4
font_name 4,"marlett":caption 4,chr$(114):on_click 4,termine
button 5:hide 5:width 5,20:height 5,20:font_bold 5:caption 5,"[]]":on_click 5,inferieur
alpha 6:left 6,5:top 6,4:color 6,50,150,200:caption 6,"TITRE"
end

reduit:
minimize 0
return

agrandit:
maximize 0
width 1,screen_x:color 1,50,150,200
left 2,width(0)-70
hide 3:left 5,width(0)-45:show 5
left 4,width(0)-20
return

inferieur:
normal 0
width 1,600
left 2,width(0)-70
hide 5:left 3,width(0)-45:show 3
left 4,width(0)-20
return

termine:
terminate

A+

Bonjour à tous.

Je suis admiratif de votre savoir et... m'affole de mon ignorance !

Tous les codes proposés fonctionnent. Seul celui de Bignono, (et celui relooké par Jean Claude ) permettent de cacher la croix de fermeture. Inconvénient : la fenêtre n'est pas déplaçable sur l'écran.

Ceux de Klaus et de Nardo permettent de déplacer la fenêtre.
Inconvénient (mineur) : la croix inactive reste affichée.

En bonus, j'ai appris à utiliser une .DLL

Je n'ai plus qu'à choisir : alors un grand merci à tous. Et un merci allemand à Severin qui a patiemment suivi mon post hier soir.
Und einer danke deutsche Sprache für den Severin, der geduldig meinem post gestern abend gefolgt ist.

------------------------

Je veux interdire l'usage de la croix pour obliger mes futurs utilisateurs à sortir par un bouton "Quitter" qui conduit à ce sous-programme :

Code:: quitter:
execute "Tasklist.exe /F /IM monprog.exe"
TERMINATE

La raison en est que je veux éliminer la fenêtre d'erreur ["Cannot open file : ......."] qui survient très souvent au lancement de mon exécutable. J'ai remarqué qu'elle survient chaque fois que le processus précédent n'a pas été tué en sortant. Et chez moi, c'est fréquent. Je l'ai remarqué dans le gestionnaire des tâches. Peut-être un caprice de Windows seven 64 bits.
Les essais jusqu'à présent sont concluants. Souhaitant qu'à l'avenir la fenêtre tant honnie ne vienne pas me narguer à nouveau...

Ambroise, c'est tout à fait possible avec le programme de Bignono.
Pour lui faire gagner du temps (et qu'il bosse encore sur un truc génial music, jeu, 3D ou je ne sais quoi, j'aime tout ... Wink

), je te donne un exemple de déplacement programmé (en cliquant sur la barre de titre) et autre clic pour 'lacher la fenêtre'. Je te prévient, je n'ai pas optimisé le truc, mais bon c'est utilisable

Code:: label reduit_fenetre,agrandit_fenetre,termine,inferieur_fenetre, deplace_fenetre, deplac_fenetre
label clic_fond,fin

dim Separe_boutons : Separe_boutons = 2 : ' Espace entre les boutons
dim Taille_barre_titre : Taille_barre_titre = 20 : ' Hauteur de la barre et taille des boutons
dim DeplaceFenetre : DeplaceFenetre = 0 : ' Bascule pour déplacement de la fenêtre
dim c_barre_titre_r,c_barre_titre_v, c_barre_titre_b : ' Couleur de la barre de titre
c_barre_titre_r = 50 : c_barre_titre_v = 150 : c_barre_titre_b = 200

width 0,600:left 0,(screen_x-width(0))/2:border_hide 0
form 8 : left 8,0 : top 8,0 : width 8,screen_x : height 8,screen_y : color 8,0,0,0
border_hide 8 : on_click 8, clic_fond : to_foreground 0
timer 7 : timer_interval 7,50 : on_timer 7, deplac_fenetre : timer_off 7

' Barre de titre
picture 1:width 1,screen_x-width(0):height 1,Taille_barre_titre:color 1,c_barre_titre_r,c_barre_titre_v, c_barre_titre_b
alpha 6:left 6,5:top 6,4:color 6,c_barre_titre_r,c_barre_titre_v, c_barre_titre_b:caption 6,"TITRE"
on_click 1,deplace_fenetre

' Bouton 'Reduire'
button 2:width 2,Taille_barre_titre:height 2,Taille_barre_titre
left 2,width(0)-3*(Taille_barre_titre+Separe_boutons)
font_bold 2: font_name 2,"marlett":caption 2,chr$(48):on_click 2,reduit_fenetre

' Bouton 'Agrandir'
button 3:width 3,Taille_barre_titre:height 3,Taille_barre_titre
left 3,width(0)-2*(Taille_barre_titre+Separe_boutons):font_bold 3
font_name 3,"marlett":caption 3,chr$(49):on_click 3,agrandit_fenetre

' Bouton 'Fermer'
button 4:width 4,Taille_barre_titre:height 4,Taille_barre_titre
left 4,width(0)-(Taille_barre_titre+Separe_boutons):font_bold 4
font_name 4,"marlett":caption 4,chr$(114):on_click 4,termine

' Bouton 'Retour taille normale' quand la fenêtre est agrandie
button 5:hide 5:width 5,Taille_barre_titre:height 5,Taille_barre_titre
font_bold 5:caption 5,"[]]":on_click 5,inferieur_fenetre

button 10:top 10,30:left 10,10:caption 10,"Quitter":on_click 10, fin

end

clic_fond:
to_background 8 : to_foreground 0
return

deplac_fenetre:
left 0, mouse_x_position(8) : top 0, mouse_y_position(8) : to_foreground 0
return

deplace_fenetre:
if DeplaceFenetre = 0
timer_on 7
DeplaceFenetre = 1
on_click 8,deplace_fenetre : on_click 0,deplace_fenetre
else
timer_off 7
DeplaceFenetre = 0
on_click 8, clic_fond : off_click 0
end_if
return

reduit_fenetre:
minimize 0 : to_foreground 0
return

agrandit_fenetre:
maximize 0 : to_foreground 0
width 1,screen_x:color 1,c_barre_titre_r,c_barre_titre_v, c_barre_titre_b
left 2,width(0)-3*(Taille_barre_titre+Separe_boutons)
hide 3:left 5,width(0)-2*(Taille_barre_titre+Separe_boutons):show 5
left 4,width(0)-(Taille_barre_titre+Separe_boutons)
return

inferieur_fenetre:
normal 0 : to_foreground 0
width 1,screen_x-width(0)
left 2,width(0)-3*(Taille_barre_titre+Separe_boutons)
hide 5:left 3,width(0)-2*(Taille_barre_titre+Separe_boutons):show 3
left 4,width(0)-(Taille_barre_titre+Separe_boutons)
return

termine:
' terminate : ' On désactive le bouton par exemple
message "vous devez utiliser le bouton Quitter"
return

fin:
timer_off_all
terminate

il y a un truc qui me chiffone

Code:: execute "Tasklist.exe /F /IM monprog.exe"

l'espace après F et 2 exécutables dans le chemin confused

Pour la fermeture (avec le code de Bignono) voit ceci:

Code:: label reduit,agrandit,termine,inferieur,fin
width 0,600:left 0,(screen_x-width(0))/2:border_hide 0
picture 1:width 1,600:height 1,20:color 1,50,150,200
button 2:width 2,20:height 2,20:left 2,width(0)-70:font_bold 2
font_name 2,"marlett":caption 2,chr$(48):on_click 2,reduit
button 3:width 3,20:height 3,20:left 3,width(0)-45:font_bold 3
font_name 3,"marlett":caption 3,chr$(49):on_click 3,agrandit
button 4:width 4,20:height 4,20:left 4,width(0)-20:font_bold 4
font_name 4,"marlett":caption 4,chr$(114):on_click 4,termine
button 5:hide 5:width 5,20:height 5,20:font_bold 5:caption 5,"[]]":on_click 5,inferieur
alpha 6:left 6,5:top 6,4:color 6,50,150,200:caption 6,"TITRE"
button 7:top 7,30:left 7,10:caption 7,"Quitter":on_click 7, fin
end

reduit:
minimize 0
return

agrandit:
maximize 0
width 1,screen_x:color 1,50,150,200
left 2,width(0)-70
hide 3:left 5,width(0)-45:show 5
left 4,width(0)-20
return

inferieur:
normal 0
width 1,600
left 2,width(0)-70
hide 5:left 3,width(0)-45:show 3
left 4,width(0)-20
return

fin:
terminate
return

termine:
message "vous devez utiliser le bouton Quitter"
return

A+

J'ai modifié mon programme pour passer par le bouton par fermer, mais bon tout est codable selon les désirs.
Soit on n'affiche pas les boutons non voulu comme la croix pour ferme, soit on le désactive, soit on guide l'utilisateur par un message comme dans le programme de Jean-Claude, soit le bouton envoie directement sur la même procédure de sortie...

Les codes de Bignono / Jean Claude / Jicehel ne permettent pas de déplacer la fenêtre.

Quant au code [execute "Tasklist.exe /F /IM monprog.exe"], je l'ai bêtement récupéré dans un post de ce site sans me poser de questions. J'ai pensé que les /F et les /IM étaient des paramètres utiles. Une petite recherche sur internet m'a fait trouver aussi l'argument /LI . Je ne sais pas du tout ce que ces arguments signifient.

@Jihecel

Tu dis : "...soit le bouton envoie directement sur la même procédure de sortie..." .... Tu veux dire qu'on peut envoyer vers un sous-programme par un clic sur la croix ? ... Ca, ça résoudrait tout très simplement et ne dérouterait pas l'utilisateur.

oui dans le programme de bignono, tu fais toi même la procédure de sortie quand tu cliques sur la croix. Donc au lieu de faire le terminate, tu traite comme tu veux. Dans mon programme tu peux déplacer comme tu veux la fenêtre. le seul truc, c'est que tu ne peux pas le faire directement par rapport au bureau, sinon, il te faut la DLL par exemple celle de Nardo (mouse.dll, si je me souviens bien) qui te donne la position par rapport au bureau et tu peux appliquer le même principe que dans mon programme (sans la fenêtre 8 qui sert juste de bureau Panoramic dans mon exemple)

Idée intéressante... Je te remercie;

Admin Nombre de messages : 2381 Date d'inscription : 28/05/2007

Je vais voir ce que je peux faire pour des commandes agissant sur la croix de fermeture.
Désolé, les amis, de ne pas en dire plus. Là où je suis (en Mer Rouge) je n'ai que très peu accès à internet.

Pas de problème Jack, bon courage pour la suite Wink

» Désactiver / activer la croix X de fermeture d'un FORM et +
» Fermeture Form par la croix rouge
» [R]Fermeture des programmes
» Désactiver un onglet TAB
» [hors propos] désactiver le "change" d'un container_option