تبدیل حروف به یکدیگر ؟؟؟

[Marine]

سلام به دوستان عزیز
چیکار کنم وقتی مثلا حرف A رو میزنم B تایپ بشه ؟

[علی کشاورز]

در کدوم کنترل؟
در کنترلهایی مثل TEdit یا TMemo می تونید از رویداد OnKeyPress استفاده کنید:


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = 'a' then
Key := 'b';
end;

[Marine]

یه دنیا ممنون دوست عزیز