ComboBox'a ReadOnly Özelliği Verme

[dynamo]

TComboBox nesnesinin normal durumda ReadOnly(salt okunur) özelliği(property) yok. ComboBox'ı readonly yapmak için

ComboBox.Style:=csDropDownList;

yapmak gerekir.Fakat sytle, csDropDownList durumunda olduğunda veritabanından değer okuyup doğrudan

Kod: Tümünü seç

ComboBox1.Text:=Query1.FieldByName('Kod').AsString; 

ile değeri combobox'ın textine atmamıza izin vermiyor .

Kod: Tümünü seç

ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(Query1.FieldByName('Kod').AsString) ;

şeklinde kullanmak zorunda kalıyoruz.Style csDropDown durumunda iken ReadOnly yapmak için SendMessage fonksiyonu kullanılır.

SendMessage API fonksiyonu kullanarak combobox'ı readonly hale getirme ve readonly özelliğini kaldırma:

//ReadOnly yap
SendMessage(GetWindow(ComboBox1.Handle,GW_CHILD), EM_SETREADONLY, 1, 0);

//ReadOnly kaldır
SendMessage(GetWindow(ComboBox1.Handle,GW_CHILD), EM_SETREADONLY, 0, 0);

combobox'ın büyük-küçük harf değişikliği yapmaması için:
ComboBox1.AutoComplete:=false;
yapın.

Kod: Tümünü seç

procedure TfrmAyarlar.FormShow(Sender: TObject);
begin
   //combobox'ı readonly yap
   SendMessage(GetWindow(ComboBox1.Handle,GW_CHILD), EM_SETREADONLY, 1, 0);
   
   //otomatik tamamlamayı iptal et büyük-küçük harf sorunundan dolayı
   ComboBox1.AutoComplete:=false;
 
end;

[rsimsek]

Paylaşım için teşekkürler

[NewMember]

çok teşekkürler.Çok işime yaradı.