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

Je t'envie...
Merci de penser encore à nous...

C'est sûr qu'en plongée en mer rouge le Wifi passe moins bien !!!

Mais on flotte mieux en mer rouge qu’ailleurs !

Bonjour à tous,
J'ai regardé avec intérêt vos codes, et Jicehel, pour déplacer la fenêtre, tu utilises un autre form placé en arrière plan. Moi j'ai réfléchi au problème de déplacement de la fenêtre sans utiliser ni un autre form, ni un autre objet. Juste la souris qui commande le déplacement de la fenêtre. Bon je vous livre 2 programmes, un sans la croix de fermeture de la fenêtre avec un bouton quitter (comme désire faire Ambroise) et un autre avec la croix de fermeture.
Dès que l'on clique dans le picture bleu de la fausse barre de titre, il n'y a plus qu'à déplacer la souris pour positionner la fenêtre où l'on veut à l'écran. Avec mes formules de calculs de la position de la fenêtre, celle-ci ne pourra jamais être hors écran, et il y aura toujours une partie apparente qui permettra de la repositionner où l'on veut.
Par contre je ne susi pas sûr de la formule suivante: top 0,((screen_y-(height(0)*2))/2)+((y%/2)+(top(0)/2))+29
Si vous mettez une valeur supérieur à 29, la fenêtre se place au milieu de l'écran, puis disparaît rapidement vers la droite. Je ne comprend pas trop pourquoi pour le momment. je ne sais pas si cela va marcher chez vous. Sinon essayez avec +20 (valeur de la hauteur de la barre de titre)
Je n'ai pas le temps de débugger ce programme aujourd'hui, trop de choses à faire ainsi que les contraintes familiales.
le code avec la croix de fermeture:

Code:

dim x%,y%
label reduit,agrandit,termine,inferieur,deplace
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:on_click 1,deplace
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
font_name 5,"marlett":caption 5,chr$(50):on_click 5,inferieur
alpha 6:left 6,5:top 6,4:color 6,50,150,200:caption 6,"TITRE"
end

deplace:
inactive 1
repeat
  x%=mouse_x_position(0):y%=mouse_y_position(0)
  left 0,((screen_x-(width(0)*2))/2)+((x%/2)+(left(0)/2))+((left(0)-width(0))/2)
  top 0,((screen_y-(height(0)*2))/2)+((y%/2)+(top(0)/2))+20
until mouse_left_up(0)=1
active 1
return

reduit:
minimize 0
return

agrandit:
inactive 1
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:
active 1
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

le code sans la croix et avec un bouton quitter:

Code:

dim x%,y%
label reduit,agrandit,inferieur,deplace,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:on_click 1,deplace
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 5:hide 5:width 5,20:height 5,20:font_bold 5
font_name 5,"marlett":caption 5,chr$(50):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

deplace:
inactive 1
repeat
  x%=mouse_x_position(0):y%=mouse_y_position(0)
  left 0,((screen_x-(width(0)*2))/2)+((x%/2)+(left(0)/2))+((left(0)-width(0))/2)
  top 0,((screen_y-(height(0)*2))/2)+((y%/2)+(top(0)/2))+20
until mouse_left_up(0)=1
active 1
return

reduit:
minimize 0
return

agrandit:
inactive 1
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
return

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

fin:
terminate

A+

Merci pour ces longs codes.

Mes tests montrent que le déplacement ne devient possible qu'après un deuxième clic sur la barre bleue. Ce n'est qu'après ce second clic que le déplacement se fait avec le bouton gauche de la souris enfoncé.

Une fois le bouton lâché, il est difficile de déplacer la fenêtre à nouveau. En cliquant et recliquant, le fenêtre se décide à nouveau à bouger. Selon des lois qui me sont inconnues

Bonjour Ambroise,
Non, dans mes codes, excuse-moi de ne pas m'être assez expliqué là-dessus, mais tu cliques d'abord sur la barre bleue et ensuite avec le bouton gauche de la souris relaché, tu te positionnes où tu veux, la fenètre devant suivre le mouvement de la souris, et tu cliques n'importe où dans la fenêtre pour l'immobiliser.
bon je retourne à mes contraintes familiales.
A+

Et moi qui m'évertuais à traîner la fenêtre, bouton gauche enfoncé ! ... la force des habitudes

Bien vu Bignono, c'est encore plus pratique par ta méthode et pas besoin d'une autre fenêtre, du coup la programmation est plus propre et plus simple. Merci pour l'astuce. J'avoue que j'avais écris la première idée qui me passait par l'esprit. Force et de constater que la tienne est meilleure
Comme on dit, il y a plus d'idée dans 2 tête que dans une