So habs:
Meine Shapes werden zur Laufzeit erstellt, hätte ich vielleicht sagen sollen:
Delphi-Quellcode:
while blah do
begin
Shape := TShape.Create(self);
with Shape do
begin
parent := PMap;
height := iHeight;
width := iWidth;
left := iXPos;
top := iYPos;
hint := sName;
ShowHint := true;
brush.style := bsClear;
onMouseDown := ShMouseDown; { <-- onMouseDown statt OnClick }
show;
end;
end;
Mit brush.style := bsClear funktioniert es super, genau so wie ich wollte...
Vielen Dank
