autosize funktioniert nicht bei TImage

[himitsu]

Daran, bis wohin das Image auf die Maus reagiert. (OnClick/OnMouseMove)

Oder laß'es dir anzeigen.

Delphi-Quellcode:

procedure TForm9.Timer1Timer(Sender: TObject);
begin
  //Shape1.Brush.Style := bsClear;
  //Shape1.Parent := Image1.Parent;
  Shape1.BoundsRect := Image1.BoundsRect;
end;

procedure TForm9.Timer1Timer(Sender: TObject);
var
  R: TRect;
begin
  //Shape1.Brush.Style := bsClear;
  //Shape1.Parent := Image1.Parent;
  R := Image1.BoundsRect;
  R.Inflate(1, 1);
  Shape1.BoundsRect := R; // um das Image drumrum
end;