Deutsches Lazarusforum

Weil diese Funktion nicht auf jeder Plattform implementiert ist.


Ist sie bei mir schon.
Ich hab mal statt beep den Inhalt der procedure beep (sysutilh.inc)
etwas erweitert gecodet:

If Assigned(OnBeep)
then
begin
showmessage ('assigned = true');
sysUtils.OnBeep;
end
else showmessage ...

Laz 3.2
Linux-Mint

Hallo,

wenn ich nach den von Lazarus vorgegebenen Projekteinstellungen ein neues Projekt speichere und compiliere, werden die *.lfm Dateien im Projektordner *und* im
Unit-Ausgabeverzeichniss abgelegt.
Das erscheint mir merkwürdig, oder ist das ein Feature?

edit: hab gerade ...

Stevie hat geschrieben: Fr 13. Jun 2025, 08:35 Lies Dir mal viewtopic.php?t=13434 durch und schau Dir die dort von Winni vorgestellte alsa Unit an. Damit sollte es klappen.

Danke, da gibts ja noch viel zu entdecken.
Für meine Zwecke reicht vorerst AlsaBeep(...)von Fred bzw. Robert Rozee.

Hallo Warf,
vielen Dank für deine Ausführungen

D.h. wenn du deinen Beep hören willst musst du dein Programm in einem Terminal Emulator starten der den Beep unterstützt. Das ist z.B. xterm, Konsole, Gnome Terminal, etc.

Ja, so geht dann beep; und Write(#7);

Und Lazarus via Code dazu zu bringen ...

Lazarus 3.2
Linux Mint
Laptop Acer Aspire V3-772G


Hallo,

via Terminal lässt sich bei mir ein Piepton erzeugen:
echo -e "\a"
Es ist ein sehr kurzer, eher tieferer Sinuston.

Nun würde ich das gerne aus meinen Lazarus-Progs heraus ermöglichen:

SysUtils.beep ist leider wirkungslos (warum ...

vielen Dank euch beiden,
ja, so gehts!

Gruß Daniel

Lazarus 3.2
Win-11, Linux-Mint

Hallo zusammen,

eine von mir abgeleitete Komponente von TStringGrid soll (nur!) zur Runtime-Creation einmalig einen bestimmten Code ausführen.

Überschreibe ich dafür den constructor create,
wird bereits zur Designtime-Creation der Code ausgeführt, (und dann noch mal ...