Discussion :

[Khais7]

Bonjour,

Dans le cadre d'un exercice, je souhaite créer un circuit.

La voiture serait le curseur de la souris. Le seul petit problème, c'est que je n'ai aucune idée de comment faire pour que la souris interagisse avec lazarus.

En gros, j'ai un carré et si jamais le curseur sort du carré, lazarus le détecte (la partie s'arrête ou alors cela retire du temps au timer. Mais cela n'est pas le souci, c'est vraiment pour que la lazarus prenne en compte le fait de sortir du cadre).

Voilà, si vous avez quelques conseils pour m'aider car même après des recherches sur internet je ne trouve pas la solution.

Cordialement,

[Khais7]

Petite information, le circuit est unicolore du coup je peux utiliser les codes hexadécimaux pour faire la délimitation.

[Jipété]

Yep !

Cherche du côté de Mouse.CursorPos.x, Mouse.CursorPos.y.

[ThWilliam]

Bonjour,

Vérifier si le curseur sort d'un carré, c'est simple si ton carré est un composant disposant de l'événement OnMouseLeave (TImage, TPaintBox...).

Code :

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

1
2
3
4
procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  Beep;
end;

Mais, si j'ai bien compris, ton circuit sera délimité par une couleur spécifique et le curseur ne pourra pas toucher cette couleur (?).
Dans ce cas, tu as l'événement OnMouseMove :

Code :

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

1
2
3
4
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if Image1.Canvas.Pixels[X, Y] <> clWhite then //...
end;

Cordialement
Thierry