Küçük Harfi Büyük Harf Yapma

[kaan_karabey]

Arkadaşlar Ben Şöyle Bir Kod Kullanarak Küçük Harfi Büyük Harfe Çeviriyorum...

Kod: Tümünü seç

var
KeyState : TKeyBoardState;
Begin
GetKeyBoardState(KeyState);
if (KeyState[Vk_Capital] = 0) then
KeyState[Vk_Capital] := 1
else
KeyState[Vk_Capital] := 0;
SetKeyBoardState(KeyState);
end;

Yalnız Şöyle Bir Sorun Oluyor Kullanıcı Şifre Bölümünde Capslock Açık Uyarısını Görüyor ve CapsLocku Kapalı Olmasına Rağmen Basıp CapsLocku Açıyor.Bu Kodda CapsLock Sanki Açık Gibi Çalıştığı İçin Kullanıcı CapsLock u Açtığında Bu Kez Küçük Yazmaya Başlıyor.Arkadaşlar Şifreyi Yazarken O Uyarıyı Nasıl Kaldırabilirim veya Kullanıcı CapsLock a Bassa Bile Nasıl Sürekli Büyük Harf Yazdırabilirim. Yardımlarınız Bekliyorum...

[barisatalay]

delphi açıl değil aklımdan örnek veriyorum Keypress eventine örneğin

kücük harflerin aski karakter numarasını baştan sona sorgulatabilirsin 50 den başlayıp 60 da bitiyor gibi varsayarsak

Kod: Tümünü seç

if not (key in [50..60]) then
Uppercase(Key);

[kaan_karabey]

delphi açıl değil aklımdan örnek veriyorum Keypress eventine örneğin

kücük harflerin aski karakter numarasını baştan sona sorgulatabilirsin 50 den başlayıp 60 da bitiyor gibi varsayarsak

Kod: Tümünü seç

if not (key in [50..60]) then
Uppercase(Key);

Bu Kodu Çalıştıramadım Ama...

[tayipk]

Kod: Tümünü seç

uppercase(edit1.tex)

sanırım bu işinizi görür

[sabanakman]

İyi günler. TEdit sınıflarında CharCase özelliği bulunmaktadır. Eğer bu özelliği ecUpperCase yaparsanız herhangi bir kod yazmanıza gerek kalmaz. İyi çalışmalar.

[kaan_karabey]

Dediğiniz Gibi Yaptıgımda Türkçe Karakter Girdiğimde Küçük Yazıyor

[sabanakman]

Aslında sadece ı ve i harfine özel bir durum bu. Zira i'yi I olarak büyümekte ve ı harfini büyütmemektedir. Bu özelliği ayarladıktan sonra aşağıdaki kod işinizi görecektir.

Kod: Tümünü seç

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

[m_yaprakci]

burada güzel iki tane function var.

viewtopic.php?f=19&t=185