Home: Code Repository: Mastering Delphi 5

Project SOUNDB

Project Structure

SOUNDB.DPR
SOUNDF.PAS
SOUNDF.DFM

program SoundB;

uses
  Forms,
  SoundF in 'SoundF.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit SoundF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MdSounB;

type
  TForm1 = class(TForm)
    MdSoundButton1: TMdSoundButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.

object Form1: TForm1
  Left = 285
  Top = 138
  Width = 310
  Height = 172
  Caption = 'SoundB'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object MdSoundButton1: TMdSoundButton
    Left = 104
    Top = 56
    Width = 75
    Height = 25
    Caption = 'Press'
    TabOrder = 0
    SoundUp = 'RestoreUp'
    SoundDown = 'RestoreDown'
  end
end