keypress olayı [çözüldü]

[y.kulac]

lazarusta editin keypress olayında şu kısımda hata veriyor

Kod: Tümünü seç

    if key = 'i' then key := 'İ';

bu kısımda İ harfini kabul etmiyor.
bunu nasıl çözebilirim.

[y.kulac]

bilindiği gibi UpperCase fonsiyonunda büyük harfe çevirme işleminde
ı ve İ harferinde sorun oluyordu
delphide şu kodlar çok güzel çalışıyor ama lazarusta Editin KeyPress olayında şu kodlar işie yaramıyor

Kod: Tümünü seç

   if key = 'i' then key := 'İ';
   if key = 'ı' then key := 'I';

ama lazarusta şu kodlar çok güzel çalışmaktadır.
buırada ı ve İ nin Ascii kodlarını yazıyoruz sorun ortadan kalkıyor

Kod: Tümünü seç

  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
  begin
     if key = 'i' then key := #304;     // # 304 İ harfinin ascii kodu
     if key = #305 then key := 'I';     // # 305 ı harfinin ascii kodu
  end;