Yil2201
Messages postés134Date d'inscriptionmercredi 1 décembre 2004StatutMembreDernière intervention10 août 2008
-
6 févr. 2006 à 17:08
wolf691300
Messages postés41Date d'inscriptionmardi 15 juin 2004StatutMembreDernière intervention31 mars 2006
-
8 févr. 2006 à 12:15
Salut à tous! Voila, ce que j'aimerais faire, c'est un petit programme de conception graphique, alors, j'ai une image1, et j'aimerais la faire glisser sur la form pour que l'user puisse choisir son emplacement. Sauriez-vous m'ider ? Ca se passe dans l'evenement on Mouse Move non ?
A+
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 6 févr. 2006 à 17:25
voila ben tu places ton Timage ds un panel et tu fais ceci
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
panel1.Perform(WM_SYSCOMMAND, $F012, 0);
end;
je sais pas prq mais ca marche pas directement ac un Timage slt
Yil2201
Messages postés134Date d'inscriptionmercredi 1 décembre 2004StatutMembreDernière intervention10 août 2008 6 févr. 2006 à 17:28
Ok, merci bêaucoup, je me suis inspiré de ta réponse et d'une source dont je ne toruve plus l'url, ca fonctionne a merveille ! Merci pour cette réponse si rapide!
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 6 févr. 2006 à 18:01
surtout qu'avec perform si tu clique sur l'image ça ne fonctionne pas
-->il faut obligatoirement cliquer sur le panel; ce qui n'est pas
vraiment l'effet recherché!!
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 6 févr. 2006 à 22:33
@Jlen
en meme temps il suffit de mettre la taille du panel = a la taille de l'image ou du moins 2 voir 3 pixels plus grand de chaque cote pr que ca marche et que se ne soit pas trop genant mais c est sur que ta methode est pile poil ce que tu demandais ...
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 6 févr. 2006 à 23:00
ce que j'ai voulu dire c'est que pour ta méthode fonctionne il faut
obligatoirement cliquer en dehors de l'image car si tu clique sur
l'image c'est celle-ci qui intercepte le message et il ne se passe
rien: c'est la meme chose que si elle était placée directement sur la
form.
Ce qui rend le fonctionnement plutot désagréable sutout si tu mets les
propriétés bevelinner et bevelouter du panel à bsnone mais bon là
je chipote