|
Registriert seit: 10. Jan 2007
92 Beiträge
|
Re: OnMouseLeave für die TPaintbox?
27. Mär 2007, 10:39
is gar nicht soo schwer...
1. zum start des Programms:
aktuelle Mausposition ermitteln und daraus bestimmen, ob die maus in der paintbox liegt (über Mouse.Position.x, Mouse.Position.y, PaintBox1.Left, PaintBox1.Top, PaintBox1.Width, PaintBox1.Heigth kann man das bestimmen und dann in den Wahrheitswert INPAINTBOX1: boolean schreiben)
2. modifiziere das Ereignis ONMouseMove deines Formulars folgendermaßen:
mach das gleiche wie unter 1., schreibe das ergebnis (also ob die maus in der paintbox liegt) aber in eine andere variable, z.B. INPAINTBOX2: boolean;
3. Vergleiche INPAINTBOX1 und INPAINTBOX2
wenn INPAINTBOX1=true und INPAINTBOX2=false
dann ...(hier folgen deine anweisungen für das ereignis OnPaintBoxMouseLeave)
jetzt noch den Wert von PAINTBOX2 in PAINTBOX2 schreiben und fertig
4. fast vergessen: das ereignis ONMouseMove des Formulars musst du auch noch dem Ereignis OnMouseMove der PaintBox1 zuordnen.
wenn du einen expliziten Quelltext brauchst sag nochma bescheid... muss ich ein paar Formulierungen nachschaun
|