Also,habe jetzt Paintbox auf großes Image gelegt und die vier kleinen obendrauf.
Im ONPAINT der Paintbox folgenter Code:
Delphi-Quellcode:
procedure TForm2.PaintBox1Paint(Sender: TObject);
begin
Canvas.Pen.Color:=clRed;
canvas.Pen.Mode:=pmNotXor;
Canvas.Pen.Style:=psDot;
Canvas.MoveTo(image2.Left+9,image2.top+9);
Canvas.Polygon([(point(image2.Left+9,image2.Top+9)),point(image3.Left+9,image3.Top+9),
(point(image5.Left+9,image5.Top+9)),(point(image4.left+9,image4.Top+9))]);
end;
Im Mousevove der kleinen Images Paintbox1.refresh.
Wenn ich jetzt ein kleines Image bewege,habe ich nur ein flackerndes Polygon???