OnMouseOver bei selbst erzeugtem TPicture

[Net7]

Ahhhh jetzt verstehe ich was du meinst...

Vergiss das mit TPicture und On MouseOver.. Das geht ja garnet weils ein Container ist


Aber mal als Anstoß.. Setze mal eine Paintbox auf deinen Formular. Und Create ein TPicture das etwa halb so groß ist wie deine Paintbox. Über die X-Y Koordinaten müsste sich ja rausfinden lassen wo sich dein Picture aufhält.


Bisschen pseudocode aus einem meiner Projekte (leicht abgeändert)

Delphi-Quellcode:

function TPictuere.Erkennen(Punkt:Tpoint): boolean;
var
PunktOL:Tpoint; //Punkt oben links deines Pictures
PunktUR:Tpoint; //Punkt unten rechts deines Pictures
begin
    
     PunktOL.X:=self.x1+10;
     PunktOL.Y:=self.y1+10;
     PunktUR.X:=self.x2-10;
     PunktUR.Y:=self.y2-10;
     
     if (punkt.X >=PunktOL.X) and (punkt.X <=PunktUR.X) and (Punkt.Y>=punktOL.Y) and (Punkt.Y<=punktUR.Y) then
     begin
        result:=true;
       
        //Tpicture berührt
     end
      else
        begin
          result:=false;
          // ausserhalb von Tpicture
        end;




end;

Ich hoffe es hilft dir etwas.