procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key <>'T' ) and (Key<>'F' ) then
begin
Key :=#0;
ShowMessage('请输入T或F');
end;
end;
编辑TEdit.OnkeyPress事件
这么写：
if (Key<>'F') and (Key<>'T') then
Begin
Key:=#0;;
Application.MessageBox('错误的输入字符','输入',Mb_defbutton1+mb_ok+mb_ICONinformation);
end;
不过看来你是想输入Boolean形的数据，
为什么不用CheckBox呢？又方便又直观，也不用屏蔽什么，看着还比较好看.
