gajo wrote:
snip
You get the idea. And here comes the problem: I cannot get the CI's Left or
any other property, because I cannot access it. Like this:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
with Sender do begin
if (ClassType = TImage) then
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 +
Also:
You might want to have a look at TControl.ScreenToClient and TControl.ClientToScreen
methods for translating positions (i.e. your mouse clicks) between different controls
- that way you will be able to get the same relative coordinates regardless of which
control your user is clicking
On Thu, 20 Jul 2000, Cheng Wei wrote:
This may sounds silly, but has anyone done any investigation on this? happy
to share with me?
I've done it a few times for some things, works quite well, just make sure
the ShowHint property is false :)
recipients of list delphi
Subject: Re: [DUG]: Tag and Hint
On Thu, 20 Jul 2000, Cheng Wei wrote:
This may sounds silly, but has anyone done any investigation on this?
happy
to share with me?
I've done it a few times for some things, works quite well, just make sure
the ShowHint property is false
property?
Regards
Cheng
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Chris Reynolds
Sent: Thursday, 20 July 2000 21:48
To: Multiple recipients of list delphi
Subject: RE: [DUG]: Tag and Hint
Also you can partition the hint property to have a short hint