请问到哪儿可以找到ascii字符对应的虚拟码? 查msdn啊或是download个gexperts,里面有的 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 to eulb(执子之手,与子偕老) :在那儿下载? procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);beginShowMessage(inttostr(ord(key)));end;记住写在KeyDown事件中,要不然F1,什么的就看不到了! 在Delphi帮助渐入关键字 Virtual key codes 可以看到所有虚拟码—————————————————————————————————MaximStr := '宠辱不惊,看庭前花开花落,去留无意; 毁誉由人,望天上云卷云舒,聚散任风。';if Not Assigned(I) then I := TI.Create(Nil);I.Maxim := MaximStr;I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';I.Desire := '加不加分随你';————————————————————————————————— AVAST 4.8中文家庭版疯了? 谁有Delphi2009的序列号?? 怎样动态创建数据库 怎样动态的把数据库的记录以三层树的结构在Treeview中表现出来?我好急呀. 请问如何不允许EDIT控件粘贴? Delphi的明天是怎样的? 请问谁知道好的delphi下的旋钮控件? 哪里有《DELPHI4编程技术内幕》的源代码下载 请教各位:delphi是否不可以支持access2000格式阿 我在CSDN中发现一个小巧门!! 判断的问题!高手这边看,才鸟送分来! 送分问题!
在那儿下载?
Shift: TShiftState);
begin
ShowMessage(inttostr(ord(key)));
end;记住写在KeyDown事件中,要不然F1,什么的就看不到了!
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————