一个关于汉字的问题

Question

我做了2个 Demo 
第一个：建立一个form 放上一个lable 然后设置 form 的keypreview为true
然后在form的keypress事件中写label1.caption:=key第二个：建立一个form 放上一个label ,一个edit然后设置 form 的keypreview为true
然后在form的keypress事件中写label1.caption:=key
------------------------------
运行以后，我在第一个窗体上 打汉字，label可以显示出来但是在第二个窗体的edit 中 打汉字，label显示的就不对了，原因是 在edit里面输入后 每两个全角字符变成一个key值
如：我在edit里面写 中国  label上显示的却是 止这个问题怎么解决？？？？？PS:键入半角英文没有问题

Answer 1

我想不通你是怎么显示汉字的，Form的KeyPress事件中的Key参数是Char类型的（一个字节空间），而汉字是宽字符类型的（两个字节空间），怎么能显示汉字？？
我按照你的方法一个都没有实现！

Answer 2

你Lable.Caption := Edit.Text
不就行了?
二楼说的非常正确。

Answer 3

第一个的源码：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    kstr:string;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 exit;
 if (key=#8)  then
    begin
      if length(kstr)>0 then
        begin
          if kstr[length(kstr)]>#128  then
             kstr:=copy(kstr,1,length(kstr)-2)
          else
             kstr:=copy(kstr,1,length(kstr)-1)
         end
     end
 else
      kstr:=kstr+key;   label1.Caption:=kstr;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
kstr:=''
end;end.

Answer 4

可能你是直接学DELPHI的吧,对OBJECT PASCAL也要学习O