▲▲▲怎么在RichEdit中按+键后显示Form2,且不显示+符号▲▲▲
▲▲▲如何在RichEdit中按+键后显示Form2,且不显示+符号▲▲▲
请问,如何在RichEdit中按+号键后显示Form2,且不在RichEdit中显示+符号?
如何写代码?
------解决方案--------------------
请问,如何在RichEdit中按+号键后显示Form2,且不在RichEdit中显示+符号?
如何写代码?
------解决方案--------------------
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;