Lorsque la programmation, parfois, à des fins de besoin, la frontière du formulaire sera définie sur bsnone, c'est-à-dire la forme sans titre. Mais de cette manière, car sans la barre de titre, vous ne pouvez pas faire glisser le formulaire. En fait, nous n'avons qu'à utiliser la méthode suivante pour faire glisser en douceur le formulaire.
Ajouté à l'événement OnMoudown
OldX: = x;
Oldy: = u;
Ajouté à l'événement OnMousemove
Form1.left: = form1.left + x oldx;
Form1.top:=form1.top+y-oldy;
## 1 La création de code est la suivante:
unité unité 1;
interface
usages
Windows, messages, systèmes, classes, graphiques, contrôles, formulaires, boîtes de dialogue;
taper
Tform1 = classe (tform)
Procédure FormMousDown (expéditeur: tobject; bouton: tmouseButton;
Shift: tshiftState; x, y, entier);
Procédure FormMouseMove (expéditeur: tobject; bouton: tmouseButton;
Shift: tshiftState; x, y, entier);
Privé
{Déclarations privées}
publique
Déclarations privées}
fin;
var
FORM1: TFORM1;
Oldx, Oldy: entier;
Mise en œuvre
$ R * .dfm}
Procédure TForm1.FormmousDown (Sender: Tobject; Bouton: TMouseButton;
Shift: tshiftState; x, y: entier);
Commencer
OldX: = x;
Oldy: = y;
fin;
Procédure tform1.formMouseMove (expéditeur: Tobject; Bouton: TmouseButton
Shift: TshiftState; x,
Y: entier);
Commencer
Si ssleft in shift alors // appuyez sur le bouton gauche de la souris
Commencer
Form1.left: = form1.left + x oldx;
Form1.top:=form1.top+y-oldy;
fin;
fin;
fin.
Le Code de Chemos a été testé et passé dans Delphi5.0 et Win98 SE.