ListView de bilgilerini StatusBara göndermede

[hido]

Merhaba, ListView de mouse ile üzerinde dolaşırken satır bilgilerini StatusBara göndermede adres hatası alıyorum nerede hata yaptım acaba

Kod: Tümünü seç

procedure TForm8.ListView1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if ListView1.Items.Count > 0 then
  begin
    StatusBar1.Panels[1].Text := ListView1.Selected.SubItems[0];
  end;
end;

[SimaWB]

Yazdığınız kodda hep seçili satırın bilgisi StatusBarda gösterilmeye çalışıyor. Mouse hangi satır üzerinde ise onu göstermek istiyorsanız TListView'ın GetItemAt fonksiyonunu araştırmalısınız.
Ayrıca verdiğiniz kodda ListView1.Selected = nil olursa hata alırsınız.

[brs]

Selam,

Kod: Tümünü seç

procedure TForm27.ListView1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if ListView1.GetItemAt(X, Y) <> nil then
  begin
    Caption := ListView1.GetItemAt(X, Y).SubItems[1];
  end;
end;