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.
“En uzun yolculuklar bile, tek bir adımla başlar.” Lao Tzu
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ı.
“En uzun yolculuklar bile, tek bir adımla başlar.” Lao Tzu
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
   
   
“En uzun yolculuklar bile, tek bir adımla başlar.” Lao Tzu
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
“En uzun yolculuklar bile, tek bir adımla başlar.” Lao Tzu
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.
“En uzun yolculuklar bile, tek bir adımla başlar.” Lao Tzu
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  [ÇÖZÜLDÜ SOLVED] Fast Report Kontrollü Component Gizleme 3ddark 0 102 01-07-2020, Saat: 17:08
Son Yorum: 3ddark
Photo Dosya kaydederken memory leak hatası. KUNTAY 8 338 23-06-2020, Saat: 14:58
Son Yorum: KUNTAY
  [ÇÖZÜLDÜ] inno setup wiseman 2 558 21-06-2020, Saat: 12:45
Son Yorum: emozgun
  [ÇÖZÜLDÜ] Delphi Formül Hesaplamaları Hk. wiseman 13 728 16-06-2020, Saat: 11:51
Son Yorum: wiseman
  PNG Glyph - "Invalid graphic format" hatası Cyb3r 7 462 07-06-2020, Saat: 00:33
Son Yorum: Cyb3r



Konuyu Okuyanlar: 1 Ziyaretçi