▲▲▲如何在RichEdit中按+键后显示Form2,且不显示+符号▲▲▲ 请问,如何在RichEdit中按+号键后显示Form2,且不在RichEdit中显示+符号?如何写代码? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);var s: string;begin Memo1.Lines.Add(IntToStr(Ord(Key))); if (Key = VK_ADD) or ((ssShift in Shift) and (Key = 187)) then//Shift + '+' begin Key := 0; PostMessage(RichEdit1.Handle, WM_KEYDOWN, VK_BACK, MakeLong(0, MapVirtualKey(VK_BACK, 0))); Form2.Show; end;end; delphi word delphi里面有没有空格函数 关于连接本地数据库和局域网服务器数据库问题 如何将其他应用程序窗口里面的某个控件存储成图片? idftp.put的问题!? 程序主窗口采用web方式,想点击连接的时候打开程序中的某个窗口 散分,老子等了10个月了,才加了第一条裤衩!!! 非高手莫入,问题绝!!!(在线等) 我想做这样的报表,请问有没有好的控件可以直接实现? 万千的镜像站点恢复开张了! 虚拟打印机的问题 FrxReport打印图片
Shift: TShiftState);
var
s: string;
begin
Memo1.Lines.Add(IntToStr(Ord(Key)));
if (Key = VK_ADD) or
((ssShift in Shift) and (Key = 187)) then//Shift + '+'
begin
Key := 0;
PostMessage(RichEdit1.Handle, WM_KEYDOWN, VK_BACK, MakeLong(0, MapVirtualKey(VK_BACK, 0)));
Form2.Show;
end;
end;