+ Antworten
Ergebnis 1 bis 3 von 3

(Delphi) Sound aus Resource laden und Picture aus ImageList zuweisen!

Eine Diskussion über (Delphi) Sound aus Resource laden und Picture aus ImageList zuweisen! im Forum Technik Ecke. Teil des Off Topic-Bereichs; hallo, ich habe ein bild als knopf auf meinem Formular wenn ich ihn drücke möchte ich das ein ton kommt ...

  1. #1
    Kriegsdienstverweigerer

    Registriert seit
    14.04.2003
    Beiträge
    1

    (Delphi) Sound aus Resource laden und Picture aus ImageList zuweisen!

    hallo, ich habe ein bild als knopf auf meinem Formular wenn ich ihn drücke möchte ich das ein ton kommt und ein bild für click und unclick sich ändert! ich hab das bis jetzt so für das unclick ereignis>

    procedure TForm1.Image5MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    var
    bmp: TBitmap;
    begin
    bmp := TBitmap.Create;
    if ImageList1.GetBitmap(1, bmp) then
    Image5.Picture.Bitmap := bmp;
    PlaySound('Button_SND',hInstance,SND_RESOURCE or SND_ASYNC);
    end;
    Die Compiler Fehler sind:
    [Fehler] Unit1.pas(187): Undefinierter Bezeichner: 'PlaySound'
    [Fehler] Unit1.pas(188): Undefinierter Bezeichner: 'SND_RESOURCE'
    [Fehler] Unit1.pas(188): Undefinierter Bezeichner: 'SND_ASYNC'
    [Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

    Die anderen fehler sind die das wenn ich die zeile

    PlaySound('Button_SND',hInstance,SND_RESOURCE or SND_ASYNC);

    entferne nichtmal der rest funktioniert! Ich kriege das bild nicht gewechselt

    Hilfe!

  2. #2
    Gruftschlampe
    Avatar von Silentx2000
    Registriert seit
    20.12.2001
    Ort
    Hamburg
    Alter
    32
    Beiträge
    3.525
    Nick
    ionwerfer
    olol hilfe...

    erstmal zu den compiler-fehlern...

    füge in die "uses" "mmSystem" mit ein

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ExtCtrls, StdCtrls, ImgList, IniFiles, mmSystem;
    das abfragen des pictures solltest du mit einer try...finally-Anweisung machen, und das bild wieder freigeben:

    Try
    if ImageList1.GetBitmap(1, bmp) then
    Image5.Picture.Assign(bmp);
    Finally
    bmp.Free; // objekt freigeben
    end ;
    vor die zeile "PlaySound('Button_SND',hInstance,SND_RESOURCE or SND_ASYNC);"

    solltest du noch:

    Application.ProcessMessages; // Ereignisse werden nacheinander abgearbeitet
    PlaySound(nil,0,0);

    setzen
    Schöne Signatur, nur leider ist sie zu groß.
    Halte dich bitte an die Signatur-Regeln
    Mit freundlichen Grüßen - die United-Forum-Administration

  3. #3
    Feldwebel
    Avatar von FsMarine
    Registriert seit
    25.08.2001
    Alter
    32
    Beiträge
    1.328
    Clans
    -LoF- / EK1 / N1KE
    tja da musst du auf silent warten der ist der einzige affe :PP der so doof ist, und mit delphi programmiert, hab noch nie mit delphi !!

    wenn er nicht hier antwortet solltest du mal versuchen ihn über msn zu erreichen.

    -----
    Dieser Account wird nichtmehr aktiv benutzt.
    Inzwischen bin ich Student - mache mein MA - und habe irgendwie keine Lust und Zeit um zu spielen. Sorry Leute

    @FsMarine 13.05.09
    FsMarine@gmx.de

+ Antworten

Ähnliche Themen

  1. Antworten: 13
    Letzter Beitrag: 07.02.2012, 03:01
  2. Sound aus Videos Filtern
    Von Wolkenleer im Forum Technik Ecke
    Antworten: 9
    Letzter Beitrag: 16.08.2004, 08:17
  3. Aktuelles und Neues aus der Community
    Von oldstars im Forum Feedback
    Antworten: 31
    Letzter Beitrag: 02.10.2003, 03:17
  4. Antworten: 6
    Letzter Beitrag: 17.08.2001, 18:53

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •