当按键为CTRL+K时,在输入处输入一个"∮"或是"φ"，只要是一个圆圈中间加一竖的字符就行！谢谢！
C computer751122 Unregistered / Unconfirmed GUEST, unregistred user! 2010-05-07 #1 当按键为CTRL+K时,在输入处输入一个"∮"或是"φ"，只要是一个圆圈中间加一竖的字符就行！谢谢！
Z zhengrong117 Unregistered / Unconfirmed GUEST, unregistred user! 2010-05-07 #2 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif key=#11 thenEdit1.Text:=Edit1.Text+'∮';//或者φend;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif key=#11 thenEdit1.Text:=Edit1.Text+'∮';//或者φend;
S szhcracker Unregistered / Unconfirmed GUEST, unregistred user! 2010-05-07 #3 procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key in [Ord('k'), Ord('K')]) and (ssCtrl in Shift) then // 按下 Ctrl + k 或 K begin .... end;end;
procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key in [Ord('k'), Ord('K')]) and (ssCtrl in Shift) then // 按下 Ctrl + k 或 K begin .... end;end;
