utilisation de souris sur delphi

Question

quelle sont les commandes  qui permettent d'avoir les coordonnées du souris apres un clic sur delphi?
si non il ya t'il possibilité d'inserer un code avec un language de bas niveau tel que l'assembleur?
gmisof

ni69 · Answer

Slt

Ce code te renvoie la position du curseur dans ta fenêtre au moment ou tu cliques dessus :
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ShowMessage(IntToStr(X) + ' ' + IntToStr(Y));
end;


@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  :)

cs_Kenavo · Answer

Salut,

Juste un Pb Nico, faut pas cliquer un un composant inclus dans la Form, sinon c'est lui qui MouseDown.
On est alors obligé de rajouter dans l'évènement  OnMouseDown de chaque contrôle une ligne du type
  FormMouseDown(Sender,Button, Shift,(Sender as TControl).Left+X, (Sender as TControl).Top+Y);

Autre solution : intercepter les messages

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage;
end;
// procedure à déclarer dans le type TForm1   { Déclarations privées}
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_LBUTTONDOWN  then
  begin
    // msg.pt.x et  msg.pt.y contiennent les coordonées absolues de la souris (par rapport à tout l'écran et par rapport à la fenêtre
    Handled := False; // pour permettre le traitement normal du message 
  end;
end;



Ken@vo
____________________
Code, Code, Codec !

ni69 · Answer

Effectivement Kenavo ! Je n'y avais pas pensé  ;) 
Merci pour cette précision !

@+
Bonne Prog'
Nico

Utilisation de souris sur delphi

3 réponses

Votre réponse

Discussions similaires