Form non déplaçable

Salut,

j'aurais voulu savoir s'il y avait moyen de rendre une form non bougeable comme en VB ? bien sûr il y a la propriété BorderStyle à None qui fais cela mais ce n'est pas très beau. Le principe est que je propose une form login dans une form MDI mère pour pouvoir y accéder. Je place la form login au centre de cette dernière, en avant-plan et non déplaçable. Peut-être aurez-vous une suggestion à faire, le principale étant de ne pas pouvoir déplacer la form Merci d'avance

Je trouve que mettre le borderstyle a None peut etre tres beau voir souvent plus beau, il n'y a qu'a voir Winamp par exemple.
C est tout se que j avais a dire ( en d autres termes pas grand chose LOL).
Youyou0214


-------------------------------
Rponse au message :
-------------------------------

Salut,

j'aurais voulu savoir s'il y avait moyen de rendre une form non bougeable comme en VB ? bien sûr il y a la propriété BorderStyle à None qui fais cela mais ce n'est pas très beau. Le principe est que je propose une form login dans une form MDI mère pour pouvoir y accéder. Je place la form login au centre de cette dernière, en avant-plan et non déplaçable. Peut-être aurez-vous une suggestion à faire, le principale étant de ne pas pouvoir déplacer la form Merci d'avance

bien que youyou m'ait répondu, je suis toujours insatisfait malgré tout

Merci



-------------------------------
Réponse au message :
-------------------------------

Je trouve que mettre le borderstyle a None peut etre tres beau voir souvent plus beau, il n'y a qu'a voir Winamp par exemple.
C est tout se que j avais a dire ( en d autres termes pas grand chose LOL).
Youyou0214


-------------------------------
Rponse au message :
-------------------------------

Salut,

j'aurais voulu savoir s'il y avait moyen de rendre une form non bougeable comme en VB ? bien sûr il y a la propriété BorderStyle à None qui fais cela mais ce n'est pas très beau. Le principe est que je propose une form login dans une form MDI mère pour pouvoir y accéder. Je place la form login au centre de cette dernière, en avant-plan et non déplaçable. Peut-être aurez-vous une suggestion à faire, le principale étant de ne pas pouvoir déplacer la form Merci d'avance

Pourquoi ne pas intercepter le message de Windows et écrire une procédure qui ne fait rien...

Quant au message en question, faut qu'on cherche !

May Delphi be with you.
Delphi advanced


-------------------------------
Réponse au message :
-------------------------------

bien que youyou m'ait répondu, je suis toujours insatisfait malgré tout

Merci



-------------------------------
Réponse au message :
-------------------------------

Je trouve que mettre le borderstyle a None peut etre tres beau voir souvent plus beau, il n'y a qu'a voir Winamp par exemple.
C est tout se que j avais a dire ( en d autres termes pas grand chose LOL).
Youyou0214


-------------------------------
Rponse au message :
-------------------------------

Salut,

j'aurais voulu savoir s'il y avait moyen de rendre une form non bougeable comme en VB ? bien sûr il y a la propriété BorderStyle à None qui fais cela mais ce n'est pas très beau. Le principe est que je propose une form login dans une form MDI mère pour pouvoir y accéder. Je place la form login au centre de cette dernière, en avant-plan et non déplaçable. Peut-être aurez-vous une suggestion à faire, le principale étant de ne pas pouvoir déplacer la form Merci d'avance

Voir aide Microsoft SDK :
The WM_ENTERSIZEMOVE message is sent once to a window when it enters the moving or sizing mode. The window enters the moving or sizing mode when the user clicks the window's title bar or sizing border, or when the window passes the WM_SYSCOMMAND message to the DefWindowProc function and the wParam parameter of the message specifies the SC_MOVE or SC_SIZE value. Windows sends the WM_ENTERSIZEMOVE message regardless of whether the dragging of full windows is enabled.

WM_ENTERSIZEMOVE
wParam = 0; // not used, must be zero
lParam = 0; // not used, must be zero


Parameters

This message has no parameters.

Return Values

An application should return zero if it processes this message..

Si tu as besoin, regardes un code source que j'ai publié et qui s'intitule tutorial utilisation des messages Windows.

Bonne prog.
May Delphi be with you.
Delphi advanced


-------------------------------
Réponse au message :
-------------------------------

Salut,

j'aurais voulu savoir s'il y avait moyen de rendre une form non bougeable comme en VB ? bien sûr il y a la propriété BorderStyle à None qui fais cela mais ce n'est pas très beau. Le principe est que je propose une form login dans une form MDI mère pour pouvoir y accéder. Je place la form login au centre de cette dernière, en avant-plan et non déplaçable. Peut-être aurez-vous une suggestion à faire, le principale étant de ne pas pouvoir déplacer la form Merci d'avance

une autre façon que j'ai trouvé mais utilise la librairie user32.dll

Code :

//Api VB à remanier en Delphi
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

//Pour empêcher de bouger la form
procedure Form_Move(Handle:Integer);
begin
DeleteMenu(GetSystemMenu(Handle, FALSE), SC_MOVE, MF_BYCOMMAND);
end;

//A la création de la form supprimer le dépacement
procedure TForm1.FormCreate(Sender: TObject);
begin
Form_Move(Form1.Handle);
end;



merci Delphiprog pour ta recherche je regarde ta façon

bonne prog
PS:bientôt en source avec plus de choix




-------------------------------
Réponse au message :
-------------------------------

Voir aide Microsoft SDK :
The WM_ENTERSIZEMOVE message is sent once to a window when it enters the moving or sizing mode. The window enters the moving or sizing mode when the user clicks the window's title bar or sizing border, or when the window passes the WM_SYSCOMMAND message to the DefWindowProc function and the wParam parameter of the message specifies the SC_MOVE or SC_SIZE value. Windows sends the WM_ENTERSIZEMOVE message regardless of whether the dragging of full windows is enabled.

WM_ENTERSIZEMOVE
wParam = 0; // not used, must be zero
lParam = 0; // not used, must be zero


Parameters

This message has no parameters.

Return Values

An application should return zero if it processes this message..

Si tu as besoin, regardes un code source que j'ai publié et qui s'intitule tutorial utilisation des messages Windows.

Bonne prog.
May Delphi be with you.
Delphi advanced


-------------------------------
Réponse au message :
-------------------------------

Salut,

j'aurais voulu savoir s'il y avait moyen de rendre une form non bougeable comme en VB ? bien sûr il y a la propriété BorderStyle à None qui fais cela mais ce n'est pas très beau. Le principe est que je propose une form login dans une form MDI mère pour pouvoir y accéder. Je place la form login au centre de cette dernière, en avant-plan et non déplaçable. Peut-être aurez-vous une suggestion à faire, le principale étant de ne pas pouvoir déplacer la form Merci d'avance

une autre façon que j'ai trouvé mais utilise la librairie user32.dll

Code :

//Api VB à remanier en Delphi
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

//Pour empêcher de bouger la form
procedure Form_Move(Handle:Integer);
begin
DeleteMenu(GetSystemMenu(Handle, FALSE), SC_MOVE, MF_BYCOMMAND);
end;

//A la création de la form supprimer le dépacement
procedure TForm1.FormCreate(Sender: TObject);
begin
Form_Move(Form1.Handle);
end;



merci Delphiprog pour ta recherche je regarde ta façon

bonne prog
PS:bientôt en source avec plus de choix




-------------------------------
Réponse au message :
-------------------------------

Voir aide Microsoft SDK :
The WM_ENTERSIZEMOVE message is sent once to a window when it enters the moving or sizing mode. The window enters the moving or sizing mode when the user clicks the window's title bar or sizing border, or when the window passes the WM_SYSCOMMAND message to the DefWindowProc function and the wParam parameter of the message specifies the SC_MOVE or SC_SIZE value. Windows sends the WM_ENTERSIZEMOVE message regardless of whether the dragging of full windows is enabled.

WM_ENTERSIZEMOVE
wParam = 0; // not used, must be zero
lParam = 0; // not used, must be zero


Parameters

This message has no parameters.

Return Values

An application should return zero if it processes this message..

Si tu as besoin, regardes un code source que j'ai publié et qui s'intitule tutorial utilisation des messages Windows.

Bonne prog.
May Delphi be with you.
Delphi advanced


-------------------------------
Réponse au message :
-------------------------------

Salut,

j'aurais voulu savoir s'il y avait moyen de rendre une form non bougeable comme en VB ? bien sûr il y a la propriété BorderStyle à None qui fais cela mais ce n'est pas très beau. Le principe est que je propose une form login dans une form MDI mère pour pouvoir y accéder. Je place la form login au centre de cette dernière, en avant-plan et non déplaçable. Peut-être aurez-vous une suggestion à faire, le principale étant de ne pas pouvoir déplacer la form Merci d'avance

Form non déplaçable et autres



-------------------------------
Réponse au message :
-------------------------------

une autre façon que j'ai trouvé mais utilise la librairie user32.dll

Code :

//Api VB à remanier en Delphi
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

//Pour empêcher de bouger la form
procedure Form_Move(Handle:Integer);
begin
DeleteMenu(GetSystemMenu(Handle, FALSE), SC_MOVE, MF_BYCOMMAND);
end;

//A la création de la form supprimer le dépacement
procedure TForm1.FormCreate(Sender: TObject);
begin
Form_Move(Form1.Handle);
end;



merci Delphiprog pour ta recherche je regarde ta façon

bonne prog
PS:bientôt en source avec plus de choix




-------------------------------
Réponse au message :
-------------------------------

Voir aide Microsoft SDK :
The WM_ENTERSIZEMOVE message is sent once to a window when it enters the moving or sizing mode. The window enters the moving or sizing mode when the user clicks the window's title bar or sizing border, or when the window passes the WM_SYSCOMMAND message to the DefWindowProc function and the wParam parameter of the message specifies the SC_MOVE or SC_SIZE value. Windows sends the WM_ENTERSIZEMOVE message regardless of whether the dragging of full windows is enabled.

WM_ENTERSIZEMOVE
wParam = 0; // not used, must be zero
lParam = 0; // not used, must be zero


Parameters

This message has no parameters.

Return Values

An application should return zero if it processes this message..

Si tu as besoin, regardes un code source que j'ai publié et qui s'intitule tutorial utilisation des messages Windows.

Bonne prog.
May Delphi be with you.
Delphi advanced


-------------------------------
Réponse au message :
-------------------------------

Salut,

j'aurais voulu savoir s'il y avait moyen de rendre une form non bougeable comme en VB ? bien sûr il y a la propriété BorderStyle à None qui fais cela mais ce n'est pas très beau. Le principe est que je propose une form login dans une form MDI mère pour pouvoir y accéder. Je place la form login au centre de cette dernière, en avant-plan et non déplaçable. Peut-être aurez-vous une suggestion à faire, le principale étant de ne pas pouvoir déplacer la form Merci d'avance

J'aimerai juste savoir si il y a moyen de "hacker" la solution de user32.dll (depuis un prog externe au programme a deplacer biensure)

Merci d'avance