Deutsches Lazarusforum

Ich habe es nun geschaft sounds einzufügen, würde aber gerne ein ganzes lied in wav-format, von buttonklick an durchlaufen lasse. Jetzt kommt jedoch immer der fehlerton.
Kann mir jmd. helfen?

Wenn es dir nur um einen Sound geht und nicht mehrere gleichzeitig, dann reicht schon: uses mmsystem,..

procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('bang_3.wav', 0, SND_FILENAME or SND_ASYNC);
end.

Funktioniert nur unter Windows und die Datei muss eine Wave-datei sein ...

Jetzt funktioniert soweit alles.

Ich würde jedoch gerne noch einen Sound einfügen, der bei Programmstart und wenn man auf Beenden Klickt ertönt.
was ich bisher gefunden habe ist sowas, doch ich weiß nicht wie ich das am programmstart und ende mache:



PlaySound('bang_3.wav', 0, SND_FILENAME or ...

Trotz mehrmaligem Überlegen, habe ich jedoch noch einen Fehler.
Sobald ich auf den 3. Button auf form1 klicke um form 3 zu öffnen kommt folgender Fehler:

"External SIGSEGV

und

"\include\customform.inc in zeile 2186"


procedure TCustomForm.Show ...

Diesen Fehler habe ich trotzdem.
@hde ich habe alles begriffen, doch zu dem Fheler hier weiß ich nichts.

Fehlerquelle in Rot:"Forward declaration not solved"

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls;

type

{ TForm3 }

TForm3 = class(TForm ...

Vielen Dank für die bisherigen Beiträge, das Bild hab ich jetzt drin doch nun ergibt sich in unit3 ein fehler:
unit Unit3;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls;

type

{ TForm3 }

TForm3 = class(TForm ...

Hallo,
ich muss in einer Projektarbeit ein eigens Delphi Programm schreiben mit dem Programm lazarus.
Ich habe mich für einen Währungsumrechner entschieden und da ich in diesem Gebiet ein Anfänger bin, bekomme ich ständig Fehlermeldungen.
Der eigentliche Umrechner funktioniert, doch ich würde gerne ...