Schnittpunkt einer Canvas.LineTo mit Komponente TButton

[mare_crisium]

Scorpion,

prima, dass ich verständlich erklärt habe.

Also, an der Stelle, die Du markiert hast, ist tatsächlich ein Schnittpunkt eingezeichnet. Ich habe nur die Markierung (lokale Konstante "lmarkWidth") zu klein gemacht. Dieser Antwort füge ich eine neue Version der "exe"-Datei an, bei der die Markierung grösser ist, so dass man sie besser sieht.

Ausserdem, wenn die "exe"-Datei bei Dir läuft, dann verändere doch mal die Werte in den Groupboxen auf der linken Seite! Das kannst Du erreichen, indem Du entweder auf die hoch- und runter-Knöpfchen rechts neben den Zahlen drückst, oder indem Du Zahlenwerte direkt in die Zahlenfelder einschreibst (negative Zahlen akzeptiert das Programm nicht). Du wirst dann sehen, wie sich die Anfangs- und Endpunkte der Geraden verschieben und auch die Schnittpunkte rund um das Control herumwandern.

Sag' mal, ob das klappt.