Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: auf linen klicken

    Delphi
    by SirThornberry, 14. Nov 2006
  wenn "X >= 0" weggelassen wird ist es möglich auch links neben der Linie zu klicken wo sie gar nicht ist.
• Forum: Multimedia

  Re: auf linen klicken

    Delphi
    by SirThornberry, 14. Nov 2006
  hier mal eine Lösung:
  
  fLinie := Rect(50, 50, 200, 80);
  
  procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var
  lPoint : TPoint;
  lNeededY: Integer;
  begin
  X := X - fLinie.Left;
• Forum: Multimedia

  Re: auf linen klicken

    Delphi
    by SirThornberry, 10. Nov 2006
  mit einer einfachen Verhältnisgleichung sollte es auch lösbar sein. Der Ursprung der Linie ist 0, 0 das Ende der Linie liegt bei x1, y1
  Dann hasst du die Mauskoordinaten x2, y2
  wenn du jetzt x1 und y1 ins Verhältnis setzt zu x2 und y2 kannst du errechnen ob dies stimmt
  
  x1 x2
  -- = --
  y1 ?
  
  Wenn Fragezeischen gleich dem Wert von y2 ist (also der Errechnete Wert mit der Mausposition...