Note: You must be registered in order to post a reply.To register, click here. Registration is FREE!
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;