Maus zeiger über button dan ton

Sauger Chris · Verfasst: So 04.04.04 13:42

hallo wie kann ich das machen wenn mein maus zeiger über ein button
ist das dan ein ton kommt ('Click,ping...) oder so.

gruß

Chris(delpi7)

Beliar · Beiträge: 34

Also wenn du den sound den du spielen willst als wav datei hast, ist es wahrscheinlich am einfachsten mit der komponente "Mediaplayer".
Aus der Delphi-Hilfe:

Zitat:

Im folgenden Beispiel wird ein AVI-Videoclip mit Hilfe einer TMediaPlayer-Komponente abgespielt. Erstellen Sie zuerst ein neues Projekt. Speichern Sie die Datei UNIT1.PAS unter dem Namen FRMAD.PAS und die Datei PROJECT1.DPR unter DELPHIAD.DPR.

1 Doppelklicken Sie auf die Komponente MediaPlayer in der Registerkarte System der Komponentenpalette.
2 Geben Sie im Objektinspektor für die Eigenschaft Name den Wert VideoPlayer1 ein.
3 Wählen Sie die Eigenschaft DeviceType aus, und klicken Sie in der Dropdown-Liste auf dtAVIVideo{einfach auf auto lassen}.
4 Klicken Sie bei der Eigenschaft FileName auf die in der Wertespalte angezeigte Schaltfläche, um das Dialogfeld Öffnen aufzurufen. Wechseln Sie hier in das Verzeichnis ..DEMOS\COOLSTUF, und wählen Sie die Datei SPEEDIS.AVI aus{das verzeichnis wo deine wav datei liegt}. Klicken Sie auf Öffnen.

5 Setzen Sie AutoOpen auf True und Visible auf False.
{6 Doppelklicken Sie auf die Komponente Animate in der Registerkarte Win32 der Komponentenpalette. Diese Komponente wird als Anzeigefenster für den Videoclip verwendet. Setzen Sie AutoSize auf False, Height auf 175 und Width auf 200. Ziehen Sie das Steuerelement in die linke obere Ecke des Formulars.
7 Klicken Sie auf die MediaPlayer-Komponente, um sie wieder zu aktivieren. Wählen Sie für die Eigenschaft Display das Objekt Animate1 aus der Dropdown-Liste.

8 Aktivieren Sie nun das Formular. Geben Sie für seine Eigenschaft Name Delphi_Ad ein. Passen Sie anschließend die Größe des Formulars an die Größe der Animate-Komponente an. } -> alles für wav nicht nötig
9 Doppelklicken Sie auf das Formularereignis OnActivate. Nehmen Sie in die Ereignisbehandlungsroutine die folgende Anweisung auf, die den AVI-Clip abspielt, wenn das Formular aktiviert wird:

VideoPlayer1.Play{das einfach in ein onmousemove oder onclick ereignis eines buttons setzen};

10 Wählen Sie Start / Start, oder klicken Sie in der Symbolleiste auf den grünen Pfeil, um die Anwendung zu starten.

Bei mir hats so funktioniert.

PS: Als ich deinen post gelesen habe wusste ich auch noch nicht wies geht, aber mit der Suchfunktion: Suche in: Delphi-Forum, Delphi-Library

SOUND findet man eigentlich alle nötigen hinweise dafür :idea:

toms · Beiträge: 1099 Erhaltene Danke: 2

Zitat:

wenn mein maus zeiger über ein button
ist

Du musst dem TButton ein Ereisnis CM_MOUSEENTER hinzufügen, damit
benachrichtigt wirst, wenn der Mauszeiger über dem Button ist (od. geht)

TimonWorld · Beiträge: 397

es gibt eine kompo, die ein 'click'-Geräusch abspielt beim überfahren! Bei der Kompo Namens PDJButton kann man auch automatisch beim MouseOver das Bild ändern oder Textfarbe ändern ohne einen quellcode einzugeben!

XeRo · Hält's aus hier Beiträge: 6 Win XP Delphi 7 Enterprise

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Open;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
MediaPlayer1.Play;
end;

Vielleicht hilft dir das...

_________________
I love AG

Anfänger · Beiträge: 128 WinXP D3 Prof

In diesem Fall finde Ich folgende Möglichkeit besser:

markieren

Delphi-Quelltext

1:
2:
3:

uses mmsystem;

sndPlaySound(PChar(Filename),SND_ASYNC);

SND_SYNC = Während die Datei abgespielt wird, steht die Anwendung
SND_ASYNC = Die Datei wird unabhängig vom Programm abgespielt.
SND_LOOP = Immer wieder und immer wieder

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme