5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.KeyPreview := True;
Edit1.Tag := 1;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Insert then Edit1.Tag := Integer(not Boolean(Edit1.Tag));
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Edit1.Tag = 0 then
if Edit1.SelLength<1 then Edit1.SelLength := 1;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var
pos:integer;
str:string;
begin
pos:=edit2.SelStart;
str:=edit2.Text;
if pos=length(str) then
exit
else
begin
Delete(str,pos+1,1);
Insert(key,str,pos+1);
key:=#0;
edit2.text:=str;
edit2.Selstart:=pos+1;
end;
end;