使用API函数来播放音乐
方法如下:首先需要在uses部分加入mmsystem,接着写入下列语句,其中e:/1.mp3为播放的文件,NN为自定义名称标志
procedure TForm1.Button1Click(Sender: TObject);
begin
//播放音乐
MCISendString(OPEN e:/1.MID TYPE SEQUENCER ALIAS NN, , 0, 0);
MCISendString(PLAY NN FROM 0, , 0, 0);
MCISendString(CLOSE ANIMATION, , 0, 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//停止播放
MCISendString(OPEN e:/1.MID TYPE SEQUENCER ALIAS NN, , 0, 0);
MCISendString(STOP NN, , 0, 0);
MCISendString(CLOSE ANIMATION, , 0, 0);
end;
设置ListView中的每个Item高度
1)、加入TImageList,绑定ListView的SmallImage,再设置TImageList的高度就行了。
2)、发 TVM_SETITEMHEIGHT 消息(未证实)
得到ListView的Item高度
1)、ListView_GetItemRect(ListView1.Handle, 0, r, LVIR_BOUNDS);
2)、SendMessage(ListView1.Handle, LVM_GETITEMRECT, 0, lParam(@r));
注:r:TRect; High := r.Bottom - r.Top;