unit BFBJYY;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ComCtrls,StdCtrls,MMSystem;type
TForm 999= class(TForm)
BitBtn2: TBitBtn;
TreeView1: TTreeView;
BitBtn1: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); procedure TreeView1DblClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form999: TForm999;
PtrSound : PChar;
hRes : THandle; {handle to the loaded resource
if 0 indicates nothing playing}implementation{$R *.dfm}
{$R mydce.res}
procedure TForm999.BitBtn2Click(Sender: TObject);
begin
sndPlaySound(nil,SND_ASYNC);
end;procedure TForm999.BitBtn2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;procedure TForm999.BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clBLUE;
end;procedure TForm999.TreeView1DblClick(Sender: TObject);
begin
if TreeView1.Selected<>Nil then
begin
if TreeView1.Selected.text = '1. WRQH' then
PlaySound(PChar('DCW1'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '2. YYAH' then PlaySound(PChar('DCW2'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '3. WCF' then PlaySound(PChar('DCW3'), hInstance, snd_ASync or snd_Resource)else if TreeView1.Selected.text = '5. YF' then PlaySound(PChar('DCW5'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '6. HS' then PlaySound(PChar('DCW6'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '7. KNOW' then PlaySound(PChar('DCW7'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '4. DMMSJ' then PlaySound(PChar('DCW8'), hInstance, snd_ASync or snd_Resource)
end;
end;procedure TForm999.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ComCtrls,StdCtrls,MMSystem;type
TForm 999= class(TForm)
BitBtn2: TBitBtn;
TreeView1: TTreeView;
BitBtn1: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); procedure TreeView1DblClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form999: TForm999;
PtrSound : PChar;
hRes : THandle; {handle to the loaded resource
if 0 indicates nothing playing}implementation{$R *.dfm}
{$R mydce.res}
procedure TForm999.BitBtn2Click(Sender: TObject);
begin
sndPlaySound(nil,SND_ASYNC);
end;procedure TForm999.BitBtn2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;procedure TForm999.BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clBLUE;
end;procedure TForm999.TreeView1DblClick(Sender: TObject);
begin
if TreeView1.Selected<>Nil then
begin
if TreeView1.Selected.text = '1. WRQH' then
PlaySound(PChar('DCW1'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '2. YYAH' then PlaySound(PChar('DCW2'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '3. WCF' then PlaySound(PChar('DCW3'), hInstance, snd_ASync or snd_Resource)else if TreeView1.Selected.text = '5. YF' then PlaySound(PChar('DCW5'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '6. HS' then PlaySound(PChar('DCW6'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '7. KNOW' then PlaySound(PChar('DCW7'), hInstance, snd_ASync or snd_Resource)
else if TreeView1.Selected.text = '4. DMMSJ' then PlaySound(PChar('DCW8'), hInstance, snd_ASync or snd_Resource)
end;
end;procedure TForm999.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.
解决方案 »
- d过程代码太长怎么永久不显示,就是点那个+号缩起代码了的效果
- 读DAT文件的错误 EinoutError
- 有人手头有delphi6的安装程序吗?100分急求,在线等!!!!!!!!!!!
- 请问如何实现http://www.musicschool.cn/img1.gif 这样的区块排列式的功能??谢谢!!
- 急,stringgrid的一个问题
- 开发ERP,系统设置模块的问题?
- ADODataSet的问题(在线等)
- dbchart的问题
- 请问如何才能给客户端发一个通知。
- 如何分发delphi三层应用系统?给100,谢谢
- "cannot allocate socket"什么原因
- 如何通过COM在服务/客户中传递图片
TForm 999= class(TForm)
这个中间有个空格 楼主不小心按错了吧