dbedit boyunun field boyuna göre ayarlanması

[muttalip]

Dbedit in boyunu dinamik olarak field ın boyuna göre nasıl değiştirebiliriz.

[mucar]

table veya query ile alanları çektikten sonra; table veya query'ye çift tıklayıp sağ tuşla "add all fields" deyip, istediğiniz alanı forma sürükleyip bırakın. o otomatik olarak uzunluğuna ve veri tipine göre ayarlıyo.

[muttalip]

Formdaki DbEdit nesnelerini tek bir tablo için kullanmıyorum. Başka tablolarında bu DbEdit nesnelerini kullanmasını istiyorum. Yani DbEdit in uzunluğunun dinamik olarak değişmesini istiyorum.

[y.kulac]

merhaba.

ben tam olarak ayarlayamadım ama yaklaşık olarak dbedit in boyutunu filed a göre ayarlayabiliyorum.

önce dbeditteki yazının boyunu length fonksiyonu ile buluyorum.
bendeki dbeditte 33 harf vardı daha sonra bunu dbedit in width ine aktardım. ama 175 olması gerekirken 30 oldu ve dbedit çok küçük oldu.sonra bunu 6 ile çarptım tam olmasada ayarlama yaptı. benim kod şöyle belki işinize yarar.

Kod: Tümünü seç

procedure TfrmAna.CeEdit1Change(Sender: TObject);
var
boyut:integer;
begin
ibdataset1.Close;
ibdataset1.SelectSQL.Clear;
ibdataset1.SelectSQL.Add('Select * From BILGILER');
ibdataset1.SelectSQL.Add('where ADISOYADI LIKE '''+CeEdit1.Text+'%'' order By ADISOYADI');
ibdataset1.Open;

boyut:= strtoint(inttostr(length(dbedit28.Text)));
dbedit28.Width:= boyut*6;
end;

kolay gelsin.