procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Font.Handle := GetStockObject(OEM_FIXED_FONT); end; procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); var ch: string[1]; begin CharToOem(@Key, @ch[1]); Key := ch[1]; end;
TForm1.FormCreate(Sender: TObject); begin
Memo1.Font.Handle := GetStockObject(OEM_FIXED_FONT); end
; procedure
TForm1.Memo1KeyPress(Sender: TObject; var
Key: Char); var
ch: string
[1]; begin
CharToOem(@Key, @ch[1]); Key := ch[1]; end
;