• Registered: 2017-05-15
  • Posts: 723

Topic: Beep

Hello MVD!

Is there a possibility to have a sound or beep after a command pass?

2 Reply by derek (edited by derek 2017-10-25 10:08:41)

  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,687

Re: Beep

Hi Manix,
Probably more than one way but I've always done it like this (see attached).   
In this example, I've associated a beep with a button click but you can attach it to any action, calculated result etc.
Hope this helps,
Derek.

Post's attachments

Attachment icon manixs beep.zip 335 kb, 376 downloads since 2017-10-25 

  • Registered: 2017-05-15
  • Posts: 723

Re: Beep

THank You so Much!

  • Registered: 2016-07-28
  • Posts: 1,038

Re: Beep

Hi Derek,


Thanks for the beep sample for manixs.


I have tried to apply it to a field such as:

procedure Form2_TableGrid1_OnClick (Sender: string); 
begin
if not (Form2.ComboBox2.Text = '') then Beep(600,1000);
end;

but couldn't get it working?


What I wanted to do is, if combobox2 contains a value, it'd beep on display of the record, if empty no beep.
Would you be so kind to correct my attempt please?

Adam
God... please help me become the person my dog thinks I am.
  • derek
  • derek
  • Moderator
  • Offline
  • Registered: 2015-02-16
  • Posts: 2,687

Re: Beep

Hi Adam,
Not sure without seeing your project, but attached is (I think) what you want.  If you want it to beep when the combobox is empty rather than contains a value, just reverse the condition in the script.
Regards,
Derek.

Post's attachments

Attachment icon adam beep.zip 337.59 kb, 381 downloads since 2017-10-25 

  • Registered: 2016-07-28
  • Posts: 1,038

Re: Beep

Hi Derek,


Thank you very much...............
Truly appreciated....................


I was trying to use it as a bleeper when browsing the records. Your line of the code below did the job:

procedure Form2_TableGrid1_OnClick (Sender: string); 
begin
  myscroll;
  if Form2.combobox2.itemindex > -1 then beep(500,300); 
end;

In fact you did more than what I was trying to ask. I'm not complaining. I'm sure additional stuff you have added will become handy in other projects. Thanks again............

Adam
God... please help me become the person my dog thinks I am.