Schnittpunkt einer Canvas.LineTo mit Komponente TButton

[dataspider]

[/delphi]Hi Scorpion,
da kannst du noch etwas tüfteln. Ich hab mal in folgendem Beispiel auf dem Canvas eine Forms einen Test gemacht:

Delphi-Quellcode:

function TForm1.LinieDurchControl(AControl: TControl): Boolean;
Var
  LinieX: Integer;
  LinieY: Integer;
  WertLinie: Extended;
  WertBtnTopRight: Extended;
  WertBtnBottomLeft: Extended;
begin
  Result := False;
  Liniex := StrToInt(Edit1.Text);
  LinieY := StrToInt(Edit2.Text);
  WertLinie := LinieX / LinieY;
  WertBtnTopRight := AControl.BoundsRect.Right / AControl.BoundsRect.Top;
  WertBtnBottomLeft := AControl.BoundsRect.Left / AControl.BoundsRect.Bottom;
  if (WertLinie < WertBtnTopRight) and (WertLinie > WertBtnBottomLeft) then
    Result := True;
  Canvas.LineTo(LinieX, LinieY);
end;

Es geht nur, wenn das Verhältnis der Punkte - hier oben rechts / unten Links verglichen wird.
Die Linie muss im Beispiel von oben links (0,0) beginnen.
Ist die Linie frei, musst du einen 0 - Punkt ermitteln und unterscheiden, in welche Richtung die Line geht. Wie gesagt, musst noch etwas tüfteln. Du musst dann alle Controls des Parent der Paintbox durchlaufen und testen.
Viel Glück!
Frank