satır numarası

[Dostk]

Selamlar;

Listvew de drag drop işlemini yaptırabileceğim bir örnek bulamadım, bu nedenden kendi satır taşıma kodlarımı yazmaya karar verdim, fakat dakika bir gol bir misali takıldım;
Multi devicede listview de üzerinde gezinirken satır numarasını alamıyorum seçili olduğunda veriyor bu durum neden kaynaklana bilir?


Üç farklı dururumda da denedim

Kod: Tümünü seç

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
    Caption := Format('%.2d', [ListView1.ItemIndex]);
end;

procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Single);
begin
    Caption := Format('%.2d', [ListView1.ItemIndex]);
  end;

procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  Caption := Format('%.2d', [ListView1.ItemIndex]);
end;

[Dostk]

Konu güncel...

[brs]

Konu güncel...

Kod: Tümünü seç

procedure TSplitViewForm.ListViewPLMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  If ListViewPL.GetItemAt(X, Y) <> nil then
  begin
    Caption := ListViewPL.GetItemAt(X, Y).Caption;
  end;
end;