
11.04.2012, 17:24
|
Местный
|
|
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
|
|
Как - то так
Код:
project Project1;
uses
Forms,
UnitPassword in "UnitPassword.pas" {FormPassword},
UnitCustomer in "UnitCustomer.pas" {FormCustomer},
UnitExecutor in "UnitExecutor.pas" {FormExecutor};
begin
Application.Initialize;
Application.CreateForm(TFormPassword,FormPassword);
FormPassword.Show;
FormPassword.Update;
// внутри предусмотрите кнопку закрытия формы
if FormPassword.RadioButton1.ItemIndex = 0 then begin
Application.CreateForm(TFormCustomer ,FormCustomer );
FormCustomer.Update;
end else
if FormPassword.RadioButton1.ItemIndex = 1 then begin
Application.CreateForm(TFormExecutor ,FormExecutor);
FormExecutor.Update;
end else
Halt;
FormPassword.Free;
Application.Run;
end.
|