sendmessage(edit1.Handle,WM_KILLFOCUS,0,0);procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key='a' then
sendmessage(edit1.Handle,WM_KILLFOCUS,0,0);
end;
begin
if key='a' then
sendmessage(edit1.Handle,WM_KILLFOCUS,0,0);
end;
2,将控件的焦点转移到别的控件上。Ttemp.setfocus.