
Bunu keypress ile anında düzeltebiliyorum fakat ben butona basıldığında edit2de düzelsin istiyorum..
Nasıl bir kod kullanabilirim

Kod: Tümünü seç
function ChEng (ch : char) : char;
begin
if (ch = 'Ğ') or (ch = 'ğ') then begin result:='G';exit;end;
if (ch = 'Ü') or (ch = 'ü') then begin result:='U';exit;end;
if (ch = 'Ş') or (ch = 'ş') then begin result:='S';exit;end;
if (ch = 'İ') or (ch = 'ı') then begin result:='I';exit;end;
if (ch = 'Ö') or (ch = 'ö') then begin result:='O';exit;end;
if (ch = 'Ç') or (ch = 'ç') then begin result:='C';exit;end;
if (ch = 'i') then begin result:='I';exit;end;
result:=ch;
end;
Kod: Tümünü seç
edit1 onkeypress olayına
procedure FormEdit1Press(Sender: TObject; var Key: Char);
begin
edit2.text:=edit2.text+cheng(key); // edit2 ye eklemek için
//edit2.text:=edit2.text+cheng(key); // edit2 yi değiştirmek için
end;
Kod: Tümünü seç
if key<> #8 then edit2.text:=edit2.text+cheng(key);
//eğer basılan tuş backspace değilse...