Hi
You should be able to do this just using the standard hint of TImageEnVect. In the OnMouseMove event set the hint with the RGB value and use CancelHint when it changes.
Something like:
procedure Tfrmmain.AnIEVectMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
sHint : string;
begin
sHint := GetRGBValueAtPos(Sender, X, Y) ;
if sHint <> AnIEVect.Hint then
begin
Application.CancelHint;
AnIEVect.Hint := sHint;
end;
end;
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com