Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
[ÇÖZÜLDÜ] Drag Drop Hatası
#1
Selamlar Arkadaşlar

Sürekli kullanmış olduğum readonly procedurunü yine formumun create eventında kullandım. Kayıt işlemi yapacağım zaman bileşenleri tekrar readonly özelliğini kapatıyorum. Buraya kadar sıkıntı yok. Ancak, aynı form üzerinde drag drop özelliği ile bir listview e dosya sürükleme yapamıyorum. Müsade etmiyor. Formun create eventından setreadonly procedurünü pasif ediyorum. Bu sefer sürükle bırak çalışıyor. Bunu bir türlü aşamadım.

Form üzerindeki tüm bileşenleri readonly true ya da false yapmak için kullandığım procedure şu şekilde :

procedure setReadOnly( Value : boolean ) ;
var
 PropInfo : PPropInfo ;
 Component : TComponent ;
 i : integer ;
begin
 for i := 0 to frmmain.ComponentCount - 1 do
 begin
   Component := frmmain.Components[ i ] ;
   if Component is TControl then
   begin  // TControl olan yere Tedit yazarsan sadece editleri, Tmemo yazarsan sadece memoları readonly yapar
     PropInfo := GetPropInfo( Component.ClassInfo, 'ReadOnly' ) ;
     if Assigned( PropInfo ) and ( PropInfo^.PropType^.Kind = tkEnumeration ) then
     SetOrdProp( Component, PropInfo, integer( Value ) ) ;
   end ;
 end ;
end;

Formun create de : setreadonly(true);
düzelt butonunda : setreadonly(false)
şeklinde kullanıyorum. Çözüm için desteklerinizi rica ederim.
Cevapla
#2
Sadece bir öneri:
listview in readonly özelliği bu işlemlerin haricinde tutulsa. For döngünüsün altında listview in readonly değerini herzaman true yapın.
Cevapla
#3
(25-06-2020, Saat: 08:51)frmman Adlı Kullanıcıdan Alıntı: Sadece bir öneri:
listview in readonly özelliği bu işlemlerin haricinde tutulsa. For döngünüsün altında listview in readonly değerini herzaman true yapın.

Selamlar
Bunu da yaptım. Ama olmadı.
Cevapla
#4
Sorunu doğru anlamak için :
@frmman'in önerisi makul aslında;

Test için forma geçici bir buton koyun, butona basınca ListView readonly özelliği false yapın. 

DragDrop özelliği geri geliyor mu?
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#5
(25-06-2020, Saat: 09:47)mrmarman Adlı Kullanıcıdan Alıntı: Sorunu doğru anlamak için :
@frmman'in önerisi makul aslında;

Test için forma geçici bir buton koyun, butona basınca ListView readonly özelliği false yapın. 

DragDrop özelliği geri geliyor mu?

Denedim hocam ama o da olmadı. İlk resimde, form create de setreadonly := true ancak butonla false yaptım yine de olmadı.
İkinci resimde form create de setreadonly:= false
   
   
Cevapla
#6
Sorun readonly yapma şeklinde olduğunu anlamış olduk.
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#7
(25-06-2020, Saat: 10:10)mrmarman Adlı Kullanıcıdan Alıntı: Sorun readonly yapma şeklinde olduğunu anlamış olduk.
Evet hocam haklısınız. Ancak her bileşeni tek tek readonly yapmak daha uzun bir iş dite bu prosedürü kullanıyordum. Ama sürükle bırak ta bu tip bir sorun vereceğini bilemedim Sad
Cevapla
#8
Selamlar tekrar
Defalarca farklı kombinasyonlar denememe rağmen, form create edilirken listview bileşeni readonly yapıldığında, drag drop özelliğinin çalışmadığını artık teyit ettim. Bu sebeple, listview bileşeni hariç tutularak diğer bileşenler readonly olarak kalmaya devam edecek.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Çözüldü - AdoQuery $Unnamed does not contain a member named Hatası KarahanMesut 2 121 19-09-2020, Saat: 01:26
Son Yorum: KarahanMesut
Photo Çözüldü - ESEGECE Socket IO HeartBeat Timeout exceeded Hatası KarahanMesut 4 242 17-09-2020, Saat: 15:49
Son Yorum: KarahanMesut
  Dataset de Edit veya İnsert hatası guvenlik 4 425 12-08-2020, Saat: 09:27
Son Yorum: DelphiCan
  Krityere göre listeleme - çözüldü ekank 3 623 16-07-2020, Saat: 22:05
Son Yorum: ekank
  (Çözüldü)Memory aşımı powerghost 14 1.696 16-07-2020, Saat: 10:50
Son Yorum: mrmarman



Konuyu Okuyanlar: 1 Ziyaretçi