Discussion :

[Algoplus]

Bonjour,

à l'exécution, la fenêtre de mon application (c'est un bien grand mot) ,faite sous Delphi 7, est bloquée au milieu de mon écran. Impossible de la déplacer.
J'ai essayé de modifier un tas de propriétés de form1 avec test à chaque modification , rien n'y fait .

Si quelqu'un a des indices ...

Merci d'avance

[Charly910]

Bonjour,

regarde si la propriété Position de ta Form n'est pas à poScreenCenter ou poMainFormCenter ?

A+
Charly

[Algoplus]

merci pour l'info.

La propriété Position est (était) :poDesigned.

Je viens de tester toutes les paramètres de Position, rien n'y fait, la fenêtre se positionne différemment mais impossible de la déplacer !

[Charly910]

je suppose que tu as déjà regardé dans le OnShow et le OnCreate ?

A+
Charly

[Lung]

je suppose que tu as déjà regardé dans le OnShow et le OnCreate ?

Et OnResize ?

[Algoplus]

Merci pour l'aide.

Je n'ai pas touché aux évènements. j'ai juste regardé les propriétés.

Qu'est ce qu'il faudrait dans ces évènements pour "libérer" la form ?

[SergioMaster]

Bonjour,

Trop vague, si au moins on avait un bout de code et/ou le dfm de la forme
Comment est créé la forme ? Est-ce la première forme de l'application ? Quels sont les évènements codés pour cette forme ? etc.
un exemple, de ce que j'attends (aucun problème de déplacement de fenêtre avec ce code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
unit Unitpbdep;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
end.

dfm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
object Form1: TForm1
  Left = 6
  Top = 106
  Width = 497
  Height = 501
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
end

[blonde]

Est-ce qu'il y a un bout de code qui s'exécute au lancement de ton application ? C'est peut-être une boucle infinie qui s'exécute.
Si tu places un bouton sur ta form, est-ce que tu peux cliquer dessus ?

[Algoplus]

Débutant Delphi depuis quelques semaines, je ne pensais pas qu'il était si compliqué de permettre le déplacement manuel de la fenêtre.

Comment est créé la forme ?

Heu... c'est la forme par défaut à l'ouverture d'un projet (adaptée aux besoins ), puis compilation du projet.

Est-ce la première forme de l'application ?

C'est la première et la seule Form de l'appli

Quels sont les évènements codés pour cette forme ? etc.

le seul évènement utilisé de la form est FormActivate

à l'exécution, il est impossible de déplacer manuellement ( à la souris) cette form . Je peut l'agrandir dans tout les sens, mais pas la déplacer.

est ce lié à un mauvais paramétrage, un codage spécifique, une "contrariété" avec windows 10 .....?

[Algoplus]

Merci à tous pour votre aide.

je viens de créer une "appli" avec juste une "textbox" Edit1 (le vocabulaire n'est peut-être pas approprié à Delphi ?)
Après compilation la fenêtre est mobile. J'ai donc comparé avec mon appli en difficulté et ...

avec la propriété Align de la form à alNone, je peux déplacer l'appli sans problème.

Encore désolé de vous avoir sollicité pour une broutille de débutant.

[Charly910]

Bonjour,

Normalement, il n'y a rien a faire pour que la fenêtre soit déplaçable.

qu'as tu mis dans le OnActivate ? As tu modifié la propriété FormStyle ?

Le mieux serait que tu zip ton projet (en D7 ce ne sera pas gros) et que tu le mettes en PJ

On pourra regarder de notre coté

A+
Charly

Edit : J'arrive trop tard !!!

PS : ne t'excuses pas, le forum est fait pour cela ...

[blonde]

Donc, de ce que je comprends, tu avais modifié la propriété Align de ta form ?

Tu as posté dans la partie "débutant" du forum, donc c'est normal que tu poses des questions de débutant !
Tu as eu le bon reflexe pour trouver la solution.

[Algoplus]

c'était ma première appli, et j'ai "testé" beaucoup de propriétés pour découvrir (?). Et sans doute cette propriété Align est passée à la trappe !

Encore confus, et merci encore!