Clic dans une image pour obtenir position --> "Transtypage de classe incorrect"

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 18:42:09

MICROSOFT SECURITY ESSENTIALS : PETIT TEST par FREMYCOMPANY

ISA LE RETOUR par Isa

DROIDANALYTICS 1.1.4 : TRI DES TOPS PAR PAGES VUES OU VISITES par Nix

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

COMPOSANT TABSHEET par swadfish

RE : CHERCHER DES VALEURS DANS UN FICHIER BIN par Smith4400

SON WAVE AVEC NOMBRE DE BIT PAR éCHANTILLON = 16 par airefrais

DELPHI6 - IMAGES HTML par toto93350

RE : EXECUTABLE D'UNE BASE SQL SERVER 2000 +DELPHI 7 par souhi321321321

+ de logiciels à télécharger

1 468 026 membres
432 nouveaux aujourd'hui
15 054 membres club

Trouver une ressource

Trouvez une ressource parmi 40 109 codes, 1 305 011 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : Clic dans une image pour obtenir position --> "Transtypage de classe incorrect" [ Système / Autre ] (vieuxpere)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Delphi / Système / Autre / Clic dans une image pour obtenir position --> "Transtypage de classe incorrect"
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

lundi 23 juin 2008 à 10:40:23 | Clic dans une image pour obtenir position --> "Transtypage de classe incorrect"

vieuxpere

Bonjour, je souhaite qu'en cliquant sur mon bouton (boutton1) j'ai la position (x, y) de la souris à l'instant T sur mon image (image1), à noter que mon bouton se trouve dessus mon image --> l'image étant donc derriere le bouton !).

En posant quelques questions sur le forum, j'ai obtenu le code suivant mais j'ai le message d'erreur "Transtypage de classe incorrect", le code est le suivant :

procedure TForm1.Button1Click(Sender: TObject);

var MP : TPoint;
begin
GetCursorPos(MP);
MP := (sender as TImage).ScreenToClient(MP);

end;

AUssi, mprocedure TForm1.Button1Click(Sender: TObject);

var MP : TPoint;
begin
GetCursorPos(MP);
MP := (sender as TImage).ScreenToClient(MP);

end;

Aussi mes questions sont les suivantes :
- Est-ce que ce code, via ajustements, est le bon pour faire ce que je veux faire ?
- Si non, qu'est-ce que je devrais faire ?

Merci par avance pour vos réponses !

lundi 23 juin 2008 à 10:45:16 | Re : Clic dans une image pour obtenir position --> "Transtypage de classe incorrect"

vieuxpere

Je le reposte,
Bonjour, je souhaite qu'en cliquant sur mon bouton (boutton1) j'ai la position (x, y) de la souris à l'instant T sur mon image (image1), à noter que mon bouton se trouve dessus mon image --> l'image étant donc derriere le bouton !).

En posant quelques questions sur le forum, j'ai obtenu le code suivant mais j'ai le message d'erreur "Transtypage de classe incorrect", le code est le suivant :

procedure TForm1.Button1Click(Sender: TObject);

var MP : TPoint;
begin
GetCursorPos(MP);
MP := (sender as TImage).ScreenToClient(MP);

lundi 23 juin 2008 à 11:24:43 | Re : Clic dans une image pour obtenir position --> "Transtypage de classe incorrect"

Nicolas___	Salut, Je comprends ce que tu veux faire mais si ce n'est pas indiscret pourquoi veux tu faire cela ? Qu'elle est le but de ta man½uvre ? Parce que je suis sur qu'il y a surement moyen de faire autrement ce que tu veux réaliser ... Ciao
	Rép. MP 484 msg 528 msg CS

lundi 23 juin 2008 à 11:38:57 | Re : Clic dans une image pour obtenir position --> "Transtypage de classe incorrect"

vieuxpere	En gros je dessine une grille horaire en canvas sur une image, je souhaite savoir où se situe le pointeur de la souris afin de savoir sur quelle zone horaire il se trouve. Cordialement,
	Rép. MP 184 msg 188 msg CS

lundi 23 juin 2008 à 12:19:46 | Re : Clic dans une image pour obtenir position --> "Transtypage de classe incorrect"

cirec

Réponse acceptée !
Salut,

l'erreur est normal et même logique

procedure TForm1.Button1Click(Sender: TObject);
var MP : TPoint;
begin
GetCursorPos(MP);
MP := (sender as TImage).ScreenToClient(MP);
end;

Sender représente l'objet qui a déclenché l'évènement et donc dans ce cas,
en règle général, c'est Button1 qui le déclenche lui même ... donc Sender = TButton
et forcement (Sender as TImage) n'est pas apprécié par le compilateur

pour ton cas de figure il faut utiliser l'évènement OnClick où OnMouseDown de l'objet TImage.

sinon pour passer par un TButton tu peux essayer comme ceci:

procedure TForm1.Button1Click(Sender: TObject);
var MP : TPoint;
begin
GetCursorPos(MP);
MP := Image1.ScreenToClient(MP);
end;

@+
Cirec

lundi 23 juin 2008 à 14:50:30 | Re : Clic dans une image pour obtenir position --> "Transtypage de classe incorrect"

vieuxpere	Merci de cette réponse, Mais apres avoir testé, j'ai toujours mon X qui a la valeur 0 quelque soit la zone où je clique sur l'image. Faut-il que j'initialise X ou cette méthode n'est pas la bonne ? Merci pour vos réponses.
	Rép. MP 184 msg 188 msg CS

lundi 23 juin 2008 à 15:15:31 | Re : Clic dans une image pour obtenir position --> "Transtypage de classe incorrect"

vieuxpere	Merci bcp en fait pour initialiser il fallait simplement faire X:=MP.X; BIen cordialement,
	Rép. MP 184 msg 188 msg CS

Cette discussion est classé dans : image, sender, position, mp, transtypage

Répondre à ce message

Sujets en rapport avec ce message

Redimensionner un timage/tshape avec des poignées [ par edge76000 ] Bonjour, Je sais que sur le site Phidels, ce programme le traite et doit pouvoir répondre à ma question car c'est exactement ce que je veux faire au n Comment connaitre la position d'un clic dans un Image ? [ par vieuxpere ] Bonjour,Je souhaiterais obtenir les ordonnées et abcisses de mon clic dans un composant Image.En fait je veux obtenir la position horizontale d'un com pb de transfert de position de fichier image après compilation [ par keepcool69140 ] Bonjour,dans une form image, je charge un fichier image parimage1.Picture.LoadFromFile('norme10816-6_1.bmp');mais des que je change mon programme de r problème affichage image [ par davibz ] Bonjour, Je viens de débuter avec delphi et j'ai qq soucis avec ma page de chargement. J'ai une image et une progressbar dans ma fenetre chargement ouverture d'une image [ par nemo216 ] Bijour la fine èquipe g un tit probleme: je dois, pour mon programme, appelet une image. J'utilise un OpenPictureDialogue pour appelé mon image mais l Tentative d'OCR ... [ par cerber943 ] Bonjour à tous,J'ai un logiciel duquel je voudrais récupérer des données texte qui sont incrustées dans des images (c du flash). J'ai besoin de ca pou modification d'image [ par 365tib ] Bonjours,J'ai un petit probleme pour modifier une image pixel par pixel, quand j'execute le prog, on me renvoie "ne peut modifier une Image que si ell Pb Dessin sur Image [ par Jean_Jean ] Bonsoir, J'ai l'impression que je ne place pas le code où il faut. L'évènement o Redimensionner un composant du haut vers le bas [ par mecsympa ] Pour un programme, j'ai besoin de redimensionner une image. Mais si j'utilise height (ou width) l'image se reduit du bas vers le haut. Je voudrais fai Recuperation d'un hint sur un Treeview [ par lo_63 ] bonjour je cherche le moyen de recuperé les hint d'un treeview externe a mon application.j'ai beau chercher mais je ne trouve rien.je pense qu'il faut