Auf klick reagieren

[felix96]

Code: Alles auswählen

procedure MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if (x>Sterne[i].x)and(x<Sterne[i].x+(trenner div 2)) and
       (y>sterne[i].x)and(y<Sterne[i].y+(trenner div 2))  then
         begin

Gibt es eine bessere Möglichkeit um nachzuprüfen ob in Sterne geklickt wurde?
trenner ist die Breite des Sternes

[Euklid]

Wenn Sterne.x die Position der Mitte der Sterne ist, dann müsste man die if-Schleife modifizieren:

Code: Alles auswählen

procedure MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if (x>Sterne[i].x-(trenner div 2))and(x<Sterne[i].x+(trenner div 2)) and
       (y>sterne[i].y-(trenner div 2))and(y<Sterne[i].y+(trenner div 2))  then
         begin

- Euklid