Delphi技巧

 使用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;