Listviewde boş alana tıklama

[hido]

Selam, listviewde boş alana tıklandığında kullanıcıya nasıl uyarı verdirebilirim???

Kod: Tümünü seç

begin
  try
    if ListView1.Items.Count > 0 then
    begin
      with Form11 do
      begin
        with ListView1 do
        begin
          if Selected <> Nil then
          begin
            Form11.ShowModal;
          end
          else
          begin
            if Selected <> Nil then //////////
            begin
              Application.MessageBox('Bu alanda değişiklik yapamazsınız!',
                'Mesaj!', MB_Ok or MB_ICONQUESTION);
            end
            else
            begin
              Edit1.Text := Selected.SubItems[1];
            end;
          end;
        end;
      end;
    end;
  except
  end;
end;

[Lord_Ares]

Boş alan derken neyi kasıt ettiğinizi anlamadım ama bu satır seçmemek anlamındaysa cevabı kodunuz içinde ( if Selected = Nil then ) zaten vermişsiniz.
Kastınız boş satır seçmemek ise seçtiğinizi satırın boş olup olmadığını seçilen satırın text özelliğini if yapısı ile kontrol ederek öğrenebilirsiniz.

[SimaWB]

Kod: Tümünü seç

function TListView.GetItemAt(X, Y: Integer): TListItem;

X - Y koordinatlarında bir List Item var mı kontrol etmenizi sağlar. Mouse'un bulunduğu/tıklandığı yere göre kontrol yapabilirsiniz.