Agir sur un composant par ses coordonnées

Bonjour à tous,

J'aimerais savoir s'il était possible d'agir sur un composant de type TImage ou autre, en connaissant ses coordonnées ?

Utiliser son nom aurait été simple, mais j'ignore comment le 'récupérer'. Imaginer une grille sur laquelle vous cliquez sur une case, le nom de la case sélectionnée peut être récupérée, mais pas ceux des cases environnantes, d'où l'utilisation des coordonnées.

A moins qu'il existe une autre solution.

Merci

Bonjour,

Citation:

---

Envoyé par sebBastien

J'aimerais savoir si il est possible d'agir sur un Composant de type TImage ou autre, en connaissant ses coordonnées?

---

Tous les contrôles descendant de TWinControl (TForm, TFrame, TPanel, TGroupBox, etc) possèdent les méthodes suivantes :

Code:

---

1 2 3

function ControlAtPos(const Pos: TPoint; AllowDisabled: Boolean): TControl; function ControlAtPos(const Pos: TPoint; AllowDisabled, AllowWinControls: Boolean): TControl; function ControlAtPos(const Pos: TPoint; Flags: TControlAtPosFlags): TControl;

---

ainsi qu'une fonction (à partir des coordonnées de l'écran):

Code:

---

function FindControlAtPosition(const Position: TPoint; AllowDisabled: Boolean): TControl;

---

Bonsoir Philippe et merci pour cette réponse,

Débutant dans ce langage de programmation, je n'ai pas compris le fonctionnement des fonctions, même avec l'aide de Google. Pourrais tu me donné un exemple dans lequel j'ai les coordonnées => Left : 210 et Top : 56, qui retournerait le nom du Composant qui s'y trouve?

Bonjour.

Voici une recherche de composant placé sur Form1.

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); var C: TControl; begin // cherche un Tcontrol au point left top C:= ControlAtPos(Point(210, 56), true); if Assigned(C) then ShowMessage(C.Name); // le composant a été trouvé, affichage de son nom end;

---

Remarque : le point left-top ne doit pas correspondre aux coordonnées exactes du TControl. Il suffit qu'il soit dans le rectangle de celui-ci.

Thierry

Bonjour,

En mettant le code dans

Code:

---

1 2	procedure TForm1.Button1Click(Sender: TObject);

---

Il fonctionne, mais je souhaiterais l'utiliser dans une procedure de ma création, qui ressemblerait à:

Code:

---

1 2 3 4 5 6 7 8

procedure changeEmplacement(xLeft, yTop : string); var C: TControl; begin C:= ControlAtPos(Point(strToStr(xLeft), strToInt(yTop) ), true); if Assigned(C) then C.Left := 300; end;

---

J'ai comme erreur: Idenfier not found "ControlAtPos".

Comme l'a signalé Ph.B. , ControlAtPos est une méthode de la classe TWinControl et de ses descendants.

Donc il faut "préfixer" cette méthode par le nom du composant parent.

Form1.ControlAtPos --> correct
Panel1.ControlAtPos --> correct
ControlAtPos seul mais dans une procedure de Form1 (cfr mon exemple) --> correct, pcq la méthode va s'appliquer à Form1. J'aurais pu écrire "Form1.ControlAtPos, mais c'est superflu.

Thierry

Oups, je vois qu'entre temps tu as modifié ton message.
Mais c'est bien ça ton erreur : pas de déclaration d'un composant utilisant la méthode.

Citation:

---

Envoyé par ThWilliam

Oups, je vois qu'entre temps tu as modifié ton message.
Mais c'est bien ça ton erreur : pas de déclaration d'un composant utilisant la méthode.

---

Effectivement, mon message à été modifier afin de vous montrer ce que je recherche à faire.

Etant familier au Java et javaScript, j'ai tenté quelque tests pour déclarer le composant mais sans succès. Pourriez vous me dire comment fait on pour déclarer?

Merci

Je suppose que c'est une fiche (TForm) qui est le parent de tes composants (TImage, TShape...).
Si tu n'as pas modifié le nom de cette fiche, elle s'appelle : Form1.

Donc ta procedure devient

Code:

---

1 2 3 4 5 6 7

procedure changeEmplacement(xLeft, yTop : string); var C: TControl; begin C:= Form1.ControlAtPos(Point(strToInt(xLeft), strToInt(yTop)), true); if Assigned(C) then C.Left := 300; end;

---

Thierry

Tout à fait, c'est un TForm1.

Ce code avait été testé, j'ai comme messages d'erreur:
Error: Only class class methods, class properties and class variables can be accessed in class methods
Error: Only class methods, class properties and class variables can be referred with class references

Mauvaise manipulation de ma part, ça semble fonctionner, je fais quelques tests.

Grand merci à vous deux, ça fonctionne ;)