procedure TFEmployee.EmpNoEdtKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13
then EmpNameEdt.SetFocus
else
begin
>>>> if key in ['0'..'9']
then EmpNoEdt.ReadOnly:=False
else EmpNoEdt.ReadOnly:=True;
end;
end;
报错:
[Error] employee.pas(137): Incompatible types: 'Word' and 'Char'
Shift: TShiftState);
begin
if Key=13
then EmpNameEdt.SetFocus
else
begin
>>>> if key in ['0'..'9']
then EmpNoEdt.ReadOnly:=False
else EmpNoEdt.ReadOnly:=True;
end;
end;
报错:
[Error] employee.pas(137): Incompatible types: 'Word' and 'Char'
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货