On mouse over

OnMouseMove skulle kunne gøre det.

Du kan også lavet lidt snyd og bruge en labet som er sat til transperent over billedet. og så bruge dens OnMouse enter

Der er da ikke en der hedder on mouse over?

MouseMove min fejl

Den har jeg prøvet. Men så afspiller den lyden mange gange, fordi at når man bevæger musen rundt på billedet så starter den forfra.

ja men så brug label ideen Lav den transparent. Og sæt Den OnMouseEnter til at afspille lyden.

//
Label1.Transparent := true;

******
eller

Lave en boolean værdi som er sat til false på formen OnMouseMove, og på billeded noget som:

if Mousefirsttime then
begin
  Mousefirsttime := false;
  play sound
end;

Du laver et nyt component der bygger på TImage hvor der er tilføjet følgende events: OnMouseEnter og OnMouseLeave.

Du laver en unit med følgende indhold:

//******************************************************
unit MyImageunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TEntrarEvent = procedure(Sender: TObject) of object;
  TSalirEvent = procedure(Sender: TObject) of object;
  TMyImage = class(TImage)
  private
    { Private declarations }
    FOnEnter: TEntrarEvent;
    FOnExit: TSalirEvent;
    procedure CMMouseEnter(var msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseEnter: TEntrarEvent read FOnEnter write FOnEnter;
    property OnMouseLeave: TSalirEvent read FOnExit write FOnExit;

  end;

procedure Register;

implementation

procedure TMyImage.CMMouseEnter(var msg: TMessage);
begin
  inherited;
 
  if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TMyImage.CMMouseLeave(var msg: TMessage);
begin
  inherited;
  if Assigned(FOnExit) then FOnExit(self);
end;

procedure Register;
begin
  RegisterComponents('Additional', [TMyImage]);
end;

end.
//******************************************************
Denne unit gemmer du og registrerer som et nyt component.
Når det er installeret har du et component der hedder TMyImage som findes under Additional, Det fungerer fuldstændigt som TImage bortset fra de 2 nye events

//Erik

Hallo fun22

Kan du ikke bruge mit svar.
Kom lige med en kommentar.

///eht

jeg har ikke testet det endnu. Jeg er ikke hjemme hved min computer lige nu. Jeg kommer først hjem igen den 30/6

Det virker altså! :-)