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

熱中症対策不安 2007-08-17 19:44:36 No: 27415

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

もにゃ 2007-08-17 22:11:12 No: 27416

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

ちょっと試したところ 2007-08-18 09:03:00 No: 27417

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

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

あれれ 2007-08-18 09:24:49 No: 27418

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

モット試したところ 2007-08-18 22:28:44 No: 27419

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