TShellListViewのOnMouseDownイベントを本当のマウスダウンで実行するには？

熱中症対策不安  2007-08-17 10:44:36  No: 27415  IP: 192.*.*.*

TShellListViewのOnMouseDownイベントは、マウスを移動させてはじめてOnMouseDownイベントが発生するみたいです？
OnMouseDownイベントをマウスを移動しなくても発生するにはどのようにすればいいのでしょうか？

編集 削除
もにゃ  2007-08-17 13:11:12  No: 27416  IP: 192.*.*.*

試してみましたが、そんなことないですよ（D7

編集 削除
ちょっと試したところ  2007-08-18 00:03:00  No: 27417  IP: 192.*.*.*

マウスは動かさなくてもきちんと発生します。(D6)
他のイベント等が原因だと思いますので，新規プロジェクトで本来の動きを
確認した後，原因箇所を探索してみてはどうでしょうか。

// 新規プロジェクトにこれだけ書くときちんと動きます。
procedure TForm1.ShellListView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Caption := Caption + '1';
end;

編集 削除
あれれ  2007-08-18 00:24:49  No: 27418  IP: 192.*.*.*

アイコン上でのMouseDownイベントがMouseUp後に実行される？？？

編集 削除
モット試したところ  2007-08-18 13:28:44  No: 27419  IP: 192.*.*.*

マウスをチョット動かさないとDownイベントが発生しないこともあるね。仕様かな(D6)
その条件は、ポインタがアイコンか項目上にある場合。

編集 削除