H
harmer
Unregistered / Unconfirmed
GUEST, unregistred user!
在edit1限制不让输入A,可以这样写,但是如何限制不让输入'这个字符?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['A', #8]) then Key := #0;
end;
if (Key in [''', #8]) then Key := #0; //这样写语法不对。
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['A', #8]) then Key := #0;
end;
if (Key in [''', #8]) then Key := #0; //这样写语法不对。