> end else if (ClassType = TPeasants) then begin
> newX := X + Sender.Left; // ERROR
> newY := Y + Sender.Top; // ERROR
I think you want something like:
end else if (ClassType = TPeasants) then begin
newX := X + TPeasants(Sender).Left;
newY := Y + TPeasants(Sender).Top;
Steve
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
