CapsLock Tuşu(Klaviye)

[subhan]

Selam

benim istediyim bu bir edit-e tıklanınca CapsLock Tuşu kapalıysa açıçak

ve yahu başka bir yolu varmı ki edit-e girilen tüm harfler büyük yazılsınlar
edit-e kücük harfler olmayacak hepsi büyük yazılacak

[mkysoft]

edit'in onkeypress olayına yazacağın bir fonskyon ile yapabilirsin. büyük küçük harf diye arat forumda.

[Battosai]

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

kullanım edit'in onkeypress olayına...
key:=buyukharf(key);

[Search]

İstedigin edite girilen bilgilerin büyük yazılması ise koda gerek yok...
properties den editin charcase sekmesini ecuppercase yaparsan girilen bilgileri büyük harfle yazar..
kolay gelsin...

[Battosai]

İstedigin edite girilen bilgilerin büyük yazılması ise koda gerek yok...
properties den editin charcase sekmesini ecuppercase yaparsan girilen bilgileri büyük harfle yazar..
kolay gelsin..

Türkçe karakterler yazılmıyor o vakit ondan yukardaki fonksiyonu gönderdik bir bildiğimiz var demi...

[Search]

Arkadaşım sen denedinmi de türkce karakterler yazılmıyor diyorsun sadece bi i ile ı da sorun cıkarıyor onuda ufak bi kodla halledebilir deilmi

Örnegin;

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if key='ı' then
       begin
          key:='I';
       end
       else
    if key='i' then
       begin
           key:='İ';
       end;
end;

Kolay gelsin...

[Battosai]

Peki... senin yazdığın kod yerine sence key:=buyukharf(key); yazmak mı daha kolay yoksa senin gönderdiğin mi ? Gönderdiğim fonksiyon her türlü karakter sorunu içindir...zor olan tarafı da fonksiyonu unit e kopyala yapıştır yapmak sadece...

[csunguray]

Editin CharCase özelliğini ecUpperCase yapın. Bu durum da tüm harfler büyük olur. Sadece i ve ı harflerinde sorun çıkar. Onu da çözmek için Edit'in OnKeyPress olayına

Kod: Tümünü seç

procedure TForm1.Edit1Press(Sender: TObject; var Key: Char);
begin
  case Key of
    'ı': Key:='I';
    'i': Key:='İ';
  end;
end;

gibi bir kod yazın.

[Search]

Battosai Arkadaşım copy Paste yi tercih ediyorsan sen ole yap
Herşey kopyala yapıştırla olmuyor biraz da mantık gerekiyor...
Bu konuyuda fazla uzatmayalım...

kolay gelsin...

[Battosai]

Bencede mantık gerekiyor....

[aslangeri]

s.a.
arkadaşlar her yiğidin bir yoğurt yiyişi vardır.
birbirinizin nasıl yoğurt yediğini bırakında yoğurdun tadına varın.
kolay gelsin.

[subhan]

Büyük harft sorununu çözdüm teşekürler ederim hepinize

tüm verdiyiniz kodlar yanı şeyi yapıyorlar (sadece yapma koşuları başka tür > sonuç aynı olmuyormu )

[modigant]

başka bir çözüm olarakta edit kutusuna focuslandığında capslock tuşunu açtırabilirsin.