procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
const
VK_V = $56;
begin
if (Key = VK_V) and (Shift = [ssCtrl]) then
Edit1.ReadOnly := True;
end;procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit1.ReadOnly := False;
end;
Shift: TShiftState);
const
VK_V = $56;
begin
if (Key = VK_V) and (Shift = [ssCtrl]) then
Edit1.ReadOnly := True;
end;procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit1.ReadOnly := False;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货