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
  Listview içinde arada dilo 4 177 06-12-2017, Saat: 09:09
Son Yorum: Fesih ARSLAN
  Listview item ekleme problemi boş olarak görünüyor Delphiseven 2 253 12-07-2017, Saat: 18:32
Son Yorum: esistem
  ListView selected Dostk 5 446 11-03-2017, Saat: 18:12
Son Yorum: barutali
  Edite Harf Girme Mericx 17 1.072 24-02-2017, Saat: 09:30
Son Yorum: Mericx
  Classım ile birlikte Listview Elemanlarımın yok olması yhackup 8 2.797 20-09-2016, Saat: 10:10
Son Yorum: yhackup



Konuyu Okuyanlar: 1 Ziyaretçi