关于第二点 So easy!把该BUTTON的 Default属性设置为True, 这样当焦点不在其他按钮上时，
就。。。。。。
第一点：可以这样： 修改工程文件：
begin
Application.Initialize;
Application.Title := '图书馆管理信息系统--恒星工作室';
Application.CreateForm(TDMLibPass, DMLibPass);
FormLogin:=TFormLogin.Create(Application);
if FormLogin.ShowModal<>mrOK then
begin
Application.Initialize;
Application.CreateForm(TDMLibrary, DMLibrary);
Application.CreateForm(TFormMain, FormMain);
FormLogin.Free;
end else FormLogin.Free;
Application.Run;
end.
在FormLogin中定义一变量作为标志 如CANN 并设置 通过的按钮的ModalResult为mrOK
procedure TFormLogin.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if ( not CANN) then
begin
ShowMessage('请选择范围！');
buttonNum:=0;
CanClose:=False;
end;
end;
TO PIE大哥:
在FormLogin中定义一变量作为标志 如CANN 并设置 通过的按钮的ModalResult为mrOK
procedure TFormLogin.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if ( not CANN) then
begin
ShowMessage('请选择范围！');
buttonNum:=0;
CanClose:=False;
end;
end;
这一段代码，是什么功能？
