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 !

Sujet : error Duplicate !!! [ Divers / Débutant(e) ] (Delphiturbo)

dimanche 25 mai 2008 à 19:46:44 | error Duplicate !!!

Delphiturbo

Salut

j'etulise Event OnMouseEnter 2 fois
une fois pour le Button BitBtn1
une foi pour Panel1

also je dois le declarer 2 fois, oubien ?

Type
procedure BitBtn1CMMouseEnter(varMessage: TMessage); message CM_MOUSEENTER;
procedure Panel1CMMouseEnter(varMessage: TMessage); message CM_MOUSEENTER;  //error Duplicate !

procedure TForm1.BitBtn1CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = BitBtn1.Handle then
  begin
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(0, BitBtn1.Glyph);
  end;
end;

procedure Form1.Panel1CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = Panel1.Handle then
    Showmessage('--------');
  end;





dimanche 25 mai 2008 à 21:12:43 | Re : error Duplicate !!!

Bacterius

Membre Club
Réponse acceptée !
Bonjour,
fais une procédure commune aux deux ...

procedure TForm1.ObjectCMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = BitBtn1.Handle then
  begin
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(0, BitBtn1.Glyph);
  end;
if  WindowFromPoint(ptWork) = Panel1.Handle then
    Showmessage('--------');
end;


Et tu prends la même pour les deux ... enfin je crois ^^'
Essaye toujours ...

Cordialement, Bacterius !

dimanche 25 mai 2008 à 23:13:19 | Re : error Duplicate !!!
lundi 26 mai 2008 à 13:17:25 | Re : error Duplicate !!!

cirec

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
Salut,

même si elle fonctionne ce n'est pas la bonne solution.
les évènemments OnMouseEnter et OnMouseLeave sont uniques.
On ne les partagent pas entre 3 Objets (Form BitBtn et Panel)

Si tu avais appliqué la réponse de F0xi (que tu as accèpté) tu n'aurais pas eut ce genre d'erreur !!!



 
@+
Cirec


lundi 26 mai 2008 à 18:22:36 | Re : error Duplicate !!!

Bacterius

Membre Club
Réponse acceptée !
Bonjour,
Ah mince ! bon ben suis celle de Cirec ^^ c'est lui qui a raison ici :D

Cordialement, Bacterius !

PS : (enleve la réponse acceptée de mon message, sinon d'autres personnes pourraient l'appliquer alors qu'elle est mauvaise ...)



Cette discussion est classé dans : message, var, error, tmessage, ptwork


Répondre à ce message

Sujets en rapport avec ce message

Ajout Handle [ par Nicolas___ ] Bonjour , c'est encore moi (ce soir j'use enfin du forum  ) j'aimerais bien intercepter les touches down et up mais pour ca il faut choper le focus du BitBtn Button OnMouseEnter and OnMouseLeave ? [ par Delphiturbo ] Salutj ai Delphi7 mais cette Version n' a pas Events : OnMouseEnter and OnMouseLeaveJe voudrais  faire cet Efecte :Demo system.pas [ par PowerII ] Bonjour,apparemment cette question a deja été posté, mais je n'ai vu aucune réponse au message...Alors je repose cette question : Lorsque je compile u [Error] RLINK32 [ par kizermomo ] Bonjour à tous,je suis en train de créer une appli. A ma grande surprise je démarre ce matin et dès que je compile j'ai un message d'erreur:[Error] RL Modification de message Windows [ par yoghisan ] protectedprocedure WMKeyDown(var Message: TWMKeyDown); message WM_KeyDown;procedure TEditNombre.WMKeyDown(var Message: TWMKeyDown);begin inherited; Recuperation message erreur [ par richarddum ] Salut, Je cherche à récuperer le message d'erreur SQL suite à une execution de requete La fenetre de deboggage me donne le message suivant : le pr Problème Runtime Error 216 [ par astrosug44 ] Bonjour à tous,Voila j'ai un ptit problème...J'ai créé une application qui fonctionne très bien sous certain PC et sur certaine machine il ne démarre Messages et handles [ par flo160fr ] Bonjours,je voudrai en savoir plus sur le fonctionnement des messages :1. comment récupérer un message envoyer a l'aplication2. comment récupérer un m Cherche une vraie fonction Onmouseleave [ par jace1975 ] Yo,Actuellement, pour le programme sur lequel je bosse, j'ai le problème suivant: je veux afficher une boite d'information quand la souris se déplace Petit souci avec messages Windows [ par ThWilliam ] Bonjour à tous, Dans le code d'un composant, je gère les événements souris par réception messages Windows.Petit problème avec : WM_LBUTTONUP.Quand le


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Comparez les prix Nouvelle version


LG KP501

Entre 9€ et 159€


Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,858 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.