Kod: Tümünü seç
if key = 'i' then key := 'İ';
bunu nasıl çözebilirim.
Kod: Tümünü seç
if key = 'i' then key := 'İ';
Kod: Tümünü seç
if key = 'i' then key := 'İ';
if key = 'ı' then key := 'I';
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;