procedure TForm1.ImageEnMView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
iHint: string;
iIndex: integer;
begin
iIndex := ImageEnMView1.ImageAtPos(X, Y);
iHint := ExtractFileName(ImageEnMView1.ImageFileName[iIndex]);
ImageEnMView1.Hint := iHint;
Application.ActivateHint(ImageEnMView1.ClientToScreen(Point(X, Y)));
end;
William Miller
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html