想请教，如何模拟键盘输入'φ'这个字符呢？
问题点数：20、回复次数：4Top
1 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-12-07 15:38:30 得分 20
我已经告诉你了！
你没有收邮件吗？Top
2 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-12-07 15:43:17 得分 0
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_F1: begin
Clipboard.AsText := 'φ';
SendKey(VK_V, [ssCtrl]); //Ctrl+V
end;
end;
end;
Top
3 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-12-07 15:43:52 得分 0
const
{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
VK_0 = $30; VK_1 = $31; VK_2 = $32; VK_3 = $33; VK_4 = $34;
VK_5 = $35; VK_6 = $36; VK_7 = $37; VK_8 = $38; VK_9 = $39;
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
VK_A = $41; VK_B = $42; VK_C = $43; VK_D = $44;
VK_E = $45; VK_F = $46; VK_G = $47; VK_H = $48;
VK_I = $49; VK_J = $4A; VK_K = $4B; VK_L = $4C; VK_M = $4D; VK_N = $4E;
VK_O = $4F; VK_P = $50; VK_Q = $51; VK_R = $52; VK_S = $53; VK_T = $54;
VK_U = $55; VK_V = $56; VK_W = $57; VK_X = $58; VK_Y = $59; VK_Z = $5A ;
Top
4 楼asgq（强子）回复于 2001-12-07 16:24:25 得分 0
给分没商量Top
