Просмотреть или отредактировать MS-DOS текст в TMemo

Советы » DOS и Консоль » Просмотреть или отредактировать MS-DOS текст в TMemo

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com