TDBLookupCombobox ve büyük harf (MEMO)

[şahmeran]

Merhaba Arkadaşlar,

1 TDBLookupCombobox ın içindeki stringlerden herhangi birini seçip kayıt ettikten sonra TDBLookupCombobox ın tekrardan ilk haline (yani boş olarak) getirmem için ne yapabilirim?

2 TDBLookupCombobox ın sayfa açıldığı zaman istediğim string üzerine gelmesi için ne yapabilirim?

3 Birde Memo da herhangi bir şey yazıldığı zaman büyük harf ile yazılmasını istiyorum. Bunun için ne yapabilirim?


İyi Çalışmalar

[FXERKAN]

2. abicim bunun için datada istediğiniz stringe locate işlemi yaparsanız sanırım işinizi görür

3 memo nun keypress kısmına ufak bir kod ile basılan harfin küçük mü yoksa büyükmü olduğunu anladıktan sonra işlem yaptırabilirsiniz galiba

umarım yardımcı olur

[Berdem]

Büyük harfe çeviren fonksiyon

Kod: Tümünü seç

Function BuyukHarf(Harf: Char): Char;
begin
case Harf of
'ı': Result:='I';
'ğ': Result:='Ğ';
'ü': Result:='Ü';
'ş': Result:='Ş';
'i': Result:='İ';
'ö': Result:='Ö';
'ç': Result:='Ç';
else
Result:=UpCase(Harf);
end;
end;

Bu fonsiyonun kullanılması
Combobox OnKeypress olayına aşağıdaki şekilde yazarak kullanabilirsiniz

Kod: Tümünü seç

procedure TForm1.TDBLookupCombobox1KeyPress(Sender: TObject; var Key: Char);
begin
Key:=BuyukHarf(Key);
end;

[Kuri_YJ]

Merhaba,

1. Soruya yanıt,

Eğer kayıt yaptıktan (post ettikten sonra) LookupCombo'nun boşaltılmasını istiyorsanız, keyvalue'ya Nil atayın, olmadı 0 koyun o zaman clear etmesi gerekiyor, ama yanılmıyorsam bir de Clear methoduu vardı galiba bakıp deneyebilirsiniz.

Kolay gelsin.

[rsimsek]

ilaveten;

pointer tipi olmadığından nil yerine null olmalı. yani;

1. DBLookupComboBox1.KeyValue := null; // veya numeric ise 0

aynı kayıtın üzerine gelmesi için bağlı tablonun değerini DBLookupComboBox1.KeyValue ya atayacaksın.
2. DBLookupComboBox1.KeyValue := DM.Table1PLAKA.AsInteger; //gibi

3. sorunun cevabını Berdem vermişti zaten.