代码如下:
编译时候提示integer和char不兼容procedure TfrmLookup.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
//当有键盘按下且当前字段是lookup的 if DBGrid1.SelectedField.Lookup then
begin
SendMessage(txtLookup.Handle,WM_CHAR,key,0);
end;
end;问题:如何把Char类型的Key转换为Integer?
编译时候提示integer和char不兼容procedure TfrmLookup.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
//当有键盘按下且当前字段是lookup的 if DBGrid1.SelectedField.Lookup then
begin
SendMessage(txtLookup.Handle,WM_CHAR,key,0);
end;
end;问题:如何把Char类型的Key转换为Integer?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货