Drag and drop : faire une fenetre boite a outils

Soyez le premier à donner votre avis sur cette source.

Vue 7 319 fois - Téléchargée 803 fois

Description

Ce code permet de créer une fenêtre comme dans Delphi, c'est à dire un panel qui se déplace et qui peux former une boite à outils, qui peut s'ancrer, etc...

Conclusion :


Voila, merci à Snark de http://www.phidels.com/ pour m'avoir mit sur la route. J'ai décidé de faire un exemple concret.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
13 -
Pas besoin de cacher le caption du panel :)

procedure TForm1.FormCreate(Sender: TObject);
begin
FenetreAncrage_Panel.Font.Color := FenetreAncrage_Panel.Color;
...
samerkamal
Messages postés
2
Date d'inscription
mercredi 8 février 2006
Statut
Membre
Dernière intervention
30 janvier 2008
-
merci, c'est très intéressant :p
DeZNiUS
Messages postés
82
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
24 octobre 2003
-
ah, merci, parce que vraiment j'ai rien fait, ce code est vraiment minuscule :)
Snowboarder69
Messages postés
41
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
23 juin 2007
-
je n'avais pas vu. J'enlève ce que j'ai dit, à part:
"C'est super ce code, tout simple . Ca peu être très pratique."
DeZNiUS
Messages postés
82
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
24 octobre 2003
-
Il suffit de vider la propriété Caption du panel ( '' = vide) : OUI, mais le truc, c'est que quand la fenêtre est flottante, elle n'a pas de titre! Car en fait le titre c'est la caption du Panel...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.