1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Meldungen in Delphi 7 erstellen...

Discussion in 'Programmieren' started by errornetwork, Jan 4, 2007.

Thread Status:
Not open for further replies.
  1. errornetwork

    errornetwork Byte

    Hallo,
    (meine Fragen beziehen sich auf Delphi 7)

    gibt es mehrere Möglichkeiten als die Methode

    ShowMessage('Meldungstext');

    und mehrere Möglichkeiten für einen Meldungston als der Befehl

    beep;

    ?
     
    errornetwork, Jan 4, 2007
    #1
  2. errornetwork

    errornetwork Byte

    Hallo nochmal!
    Für die Meldungen habe ich inzwischen eine Lösung gefunden, daher an alle die's interessiert:

    Info- Fenster:

    Messagedlg('Meldungstext', mtinformation, [mbok], 0);

    Warnungs- Fenster

    Messagedlg('Meldungstext', mtwarning, [mbok], 0);

    Fataler-Error-Fenster

    Messagedlg('Meldungstext', mterror, [mbok], 0);

    Bleibt nur noch der Teil der Frage bestehen, ob man andere Sounds als

    beep;

    verwenden kann...
     
    errornetwork, Jan 5, 2007
    #2
  3. Falcon37

    Falcon37 Ganzes Gigabyte

    Klar kannst du das.
    Du kannst Sounddateien einbinden, die abgespielt werden bevor das Hinweisfenster erscheint.

    Beispiel:

    Vor Meldung:
    Res := findresource(Hinstance,'Maileingang','Wave');
    Reshandle := loadresource(Hinstance,res);
    SndPlaySound(lockresource(reshandle),snd_async OR snd_memory OR snd_loop);

    Nach Meldung:
    SndPlaySound(NIL,0);
    Unlockresource(reshandle);
    Freeresource(reshandle);

    Die Sounddatei habe ich in der zur Applikation gehörenden RES-Datei eingebunden.

    Mfg
     
    Falcon37, Jan 5, 2007
    #3
Thread Status:
Not open for further replies.

Share This Page