Delphi 2010 meckert jetzt endlich mal, wenn man sowas versucht, denn früher war es zwar möglich, aber nicht wirklich.
Gab vor 'ner Weile auch einen Thread dazu.
.DragPos ließt wirklich das Property (TPoint) aus, aber X und Y würden nur innerhalb des ausgelesenen Wertes geändert und nicht innerhalb der Komponente
Delphi-Quellcode:
with DragObject.DragPos do
begin
y := y + FView.Top;
X := X + FView.Left;
end;
ergibt intern
Delphi-Quellcode:
with DragObject.GetDragPos do
begin
y := y + FView.Top;
X := X + FView.Left;
end;
Delphi-Quellcode:
temp := DragObject.GetDragPos;
temp.Y := temp.Y + FView.Top;
temp.X := temp.X + FView.Left;
Und nun fällt vielleicht auch auf, warum sowas nun nicht mehr zugelassen wird.