Discussion :

[chrisofbx]

Qqu'un sait-il comment lancer l'évènement MouseUp sur le Clique gauche de la souris ss Windows98 qd on accède à un chps RichEdit?

Ss WXP/2K , il n'y a pas de pbme ms RichEd32.dll est différente de celle de
w98...

J'ai essaye l'event OnClick également ms il ne fonctionne pas

merci
co

[Sub0]

Salut et bienvenue dans les forums de Developpez.com !

Tu peux éventuellement essayer la solution suivante et l'adapter à ton cas, c'est apparemment le même genre de réponse -> Créer soi-même l'événement d'un objet :
http://www.developpez.net/forums/sho...66#post1009866

Par exemple, avec OnMessage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
{----------------------------------------------------------------}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  Application.OnMessage := ProcMess;
End;
 
{----------------------------------------------------------------}
Procedure TForm1.ProcMess(Var msg: TMsg; Var Handled: Boolean);
Begin
  If (msg.Message = WM_LBUTTONUP) And
     (WindowFromPoint(Mouse.CursorPos) = RichEdit1.Handle) Then Beep;
End;

[chrisofbx]

merci de l'accueil & de l'aide.

Sous XP, le code marche sans problème; hélas pas sous W98 ...
Cela marche la 1er fois que j'entre dans le champs sous W98 mais la 2nde fois, rien ne se passe ... l'event n'est pas lancé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
PROCEDURE TForm1.FormCreate (Sender: TObject);
...
Application.OnMessage := ProcMess;
...
 
PROCEDURE TForm1.ProcMess(Var msg: TMsg; Var Handled: Boolean);
BEGIN
  IF (WindowFromPoint(Mouse.CursorPos) = RichEdit1.Handle)
  AND (msg.Message = WM_LBUTTONUP) 
  THEN
       RichEdit1MouseUp ( RichEdit1, mbLeft, [ssLeft], 0 , 0);
END;

une idée?
merci

[Sub0]

Tu dois enlever l'événement créé par Delphi si tu le généres toi-même. Il faut donc supprimer la redirection vers ta procédure RichEdit1MouseUp dans l'inspecteur d'objet ou avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RichEdit1.OnMouseUp := Nil;

Si cela ne fonctionne toujours pas, c'est qu'il ya un problème ailleurs selon moi...

-> Merci d'utiliser les balises code :
Clique sur le # dans l'éditeur de message après avoir sélectionner ton code dans le textarea.
-> Lecture des règles du forum si ce n'est pas déjà fait, le style SMS est interdit :
"Ss" = "Sous"
"pbme" = "problème"
ect...
Merci de reéditer ton message et de corriger tout ça.

[chrisofbx]

J'avais bien enlevé dans l'inspecteur d'objet le nom de la procédure dans OnMouseUp.

[Sub0]

Il faudrait que je réinstalle Win98 pour pouvoir faire des essais...
Je vais essayer de m'y pencher ce soir si j'ai un peu de temps libre, je ne te promets rien. En attendant, si d'autres membres pensent avoir une solution à ce problème, n'hésitez pas à la proposer.

ps: Merci d'avoir corriger ton post