25-06-2020, Saat: 00:53
(Son Düzenleme: 26-06-2020, Saat: 12:44, Düzenleyen: shooterman.)
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 :
Formun create de : setreadonly(true);
düzelt butonunda : setreadonly(false)
şeklinde kullanıyorum. Çözüm için desteklerinizi rica ederim.
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.
Yazılımcı, kahveyi koda çeviren bir organizmadır.