Re : Troubles with MessageBeep | Beep...

["SEV, AV Guest 2" <avguest2@barco.com>]

As they say... RTFM... 

Beep & MessageBeep are functions....
The following code is really annoying but it works...

------------------------------------------------------------------------
--
with Win32, Win32.WinUser, Win32.WinDef, gbObjects, Win32.WinBase;
use type Win32.Int, Win32.Bool, Win32.WinDef.hWnd;
use gbObjects, Win32.WinBase;

package Window1 is
  Form            : gbMainWindow;
  Button1         : gbButton;
  procedure Initialize_Form;
end Window1;


package body Window1 is
  procedure Button1_Click is 
    b : Win32.bool;  
  begin
    b:=Beep(5000,5000);
  end Button1_Click;

  procedure Initialize_Form is
  begin
    Button1.Click := Button1_Click'Access;
    Text(Button1, "Button1");
    SetFont(Button1, "MS Sans Serif", 8, gbFalse, gbFalse, gbFalse);
    Move(Button1, 44, 39, 137, 47);

    Text(Form, "Window1");
    SetFont(Form, "MS Sans Serif", 8, gbFalse, gbFalse, gbFalse);
    Move(Form, 3, 126, 229, 152);
    Visible(Form, gbTrue);
  end Initialize_Form;
begin
  Initialize_Form;
end Window1;


with gbObjects;
with Window1;

procedure Main is begin
  gbObjects.gbStartApplication;
end Main;
------------------------------------------------------------------------
-----

Sorry if I waste your time with this....

Thnx anyway, Bart.