مشكل عند الضغط على item في listview

هدا الموقع يظهر أفضل في المتصفحات الحديثة مع جافاسكريبت مفعلة.

مشكل عند الضغط على item في listview

xorpas

السلام عليكم
اواجه مشكلة في اظهار المسج مرة اخرى عند الضغط على listview المرة الاولى يظهر ولكن في المرة الثانية لا يظهر لان listview is selected

procedure TForm1.ListView1ItemClick(const Sender: TObject;
const AItem: TListViewItem);
begin
  ShowMessage(AItem.Index.ToString);
end;

delphi 10.4

SamerAssil

قمت بتجربة الكود . ولم تظهر المشكلة . والكود يعمل طبيعي جدا جدا بدون اي مشكلة .
انت افترضت السبب (لا يظهر لان listview is selected ) . على اي اساس افترضت هذا الافتراض؟
اذكر نوع المشكلة . هل فقط الرسالة لا تظهر ؟ ام هناك رسالة خطأ ؟
اعتقد السبب هو شيء اخر . حاول تكرار الكود في برنامج صغير مستقل . حتى تتاكد من اذا كان هو السبب او شيء اخر يؤثر عليه . حسب تجربتي الكود يعمل بشكل سليم تمام .