Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Listview den edite sürükle bırak
#1
Merhaba; 

Forumda 2 tane listview var, listviewler arası değilde sürükle bırak metodunu edite yapmak istiyorum, fakat başarısın oldu.
Acaba listview den edite sürükle bırak yöntemini yapılamıyor mu?

procedure TForm3.LVDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if LV.Selected <> Nil then
  begin
    Edit4.Text := LV.Selected.SubItems[1];
  end
end;

procedure TForm3.LVDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source = Sender then
    Accept := True
  else
    Accept := False;
end;
Cevapla
#2
Yapılabiliyor.

procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 Accept := Source is TListView;
end;

procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
   (Sender as TEdit).Text := (Source as TListView).Selected.Caption;
end;

ListView de drag drop yaptıysan biliyo olman lazım listview'in dragmodu dmAutomatic olması lazım

Görünüm:
jW5aJn.gif
WWW
Cevapla
#3
Çok teşekkür ederim...
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  TreeViewi ListView gibi kullanma Dostk 0 83 10-07-2018, Saat: 16:04
Son Yorum: Dostk
  Listview içinde arada dilo 4 340 06-12-2017, Saat: 09:09
Son Yorum: Fesih ARSLAN
  Listview item ekleme problemi boş olarak görünüyor Delphiseven 2 387 12-07-2017, Saat: 18:32
Son Yorum: esistem
  ListView selected Dostk 5 547 11-03-2017, Saat: 18:12
Son Yorum: barutali
  Edite Harf Girme Mericx 17 1.476 24-02-2017, Saat: 09:30
Son Yorum: Mericx



Konuyu Okuyanlar: 1 Ziyaretçi