Here is a little bit of code I wrote that may be useful, it does what you
want anyway:
var Pstate:word;
procedure TCamForm.PopMsgS(PSentstate: word; SMsg: string);
var
p: TPoint;
begin
if PSentstate = Pstate then exit;
DynaMenu.caption := SMsg; //just use a menuitem here
GetCursorPos(p);
PopMsg.Popup(p.x, p.y);
Pstate := PSentstate;
end;
> > I'm writing a custom component and want a fly-over hint to pop-up at
> > different places in the component (its a diagram tool and has
> > pseudo-objects drawn in it).
>
> I assume the "pseudo-object" means that they are not Twincontrol
> descendents. In that that case you need some that executes on
> Onmousemove. If it has to lookup current x,y in a large list of potential
> objects, then you might want to consider having the search happen only
> if the cursor stays in place for 1/2 second or simplier.
>
> ----------------------------------------------------------
> Phil Scadden, Institute of Geological and Nuclear Sciences
> PO Box 30368, Lower Hutt, New Zealand
> Ph +64 4 5704821, fax +64 4 5704603
> ------------------------------------------------------------------
> ---------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
