Sound nach DBEdit Wert ausgeben

Roy · Verfasst: Fr 23.03.07 10:44

Hallo Freunde,
mal wieder eine Frage von mir:

Ich arbeite in meinem Tool mit Access und somit auch DBEdit Komponenten. Ich möchte nun wenn DBEdit1=1 ist einen Ton erzeugen, zum Beispiel LoadFromFile weiß aber nicht wie.

Kann mir jemand helfen?

DBR · Beiträge: 46

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

uses mmsystem;

procedure TForm1.DBEdit1Change(Sender: TObject);
begin
  if DBEdit1.text = '1' then
  playsound('c:\demo.wav', 0, SND_FILENAME or SND_ASYNC);
end;

Gruß DBR

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme