Mega Code Archive

 

Categories / Delphi / VCL

 

View-edit ms-dos text in a 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;