Как создать 2 окна

[prod87]

Помогите пожалуйста.
Такая ситуация:
нужно создать окно для логина, которое после нажатия кнопки(button1 например) будет закрываться и открываться новое окно с сомой программой. Зарание спасибо

[Пепел Феникса]

File->New->Form

[Миша]

Посмотри может етот код тебе подойдет?

procedure TForm1.Button1Click(Sender: TObject);
var
name:String;
begin
if InputQuery('Рея','ла ла',name) then Button1.Caption:=name;
end;

[Шульц]

Ставишь на форме (Где вводится логин) Таймер и в коде проджекта пишешь

program MSK;

uses
  Forms,
  Windows,
  sysutils,
  Unit1 in 'Unit1.pas' {Form1},
  Unit7 in 'Unit7.pas' {Form7};


{$R *.res}

begin
Application.Initialize;
  Form7:=TForm7.Create(Application);
  Form7.Show;
  Form7.Update;
  while Form7.Timer1.Enabled do
    Application.ProcessMessages;
   Application.CreateForm(TForm1, Form1);
   Form7.Hide;
   Form7.Close;
   Form7.Free;
  end;
 Application.Run;
end.

И в коде Батона пишешь следующее

if Edit1.Text='Пороль' then
 Timer1.Enabled:=False
else
 MessageDlg('Пароль не тот!',mtError,mbOKCancel,1);

If Timer1.Enabled=False then
 Close;

[prod87]

Я сделал так:
form1.hide;
form2.show;

Вроде бы как то что мне надо Но все равно всем спасибо

[grenles]

 Боже, как смешно, глупо и смешно, Впрочем, все равно. А, я не буду вспоминать...

У Дельфи у любого проекта есть код. Обычно его можно посмотреть Project->View Source

Там пишем что-то вроде.
То есть непосредственно в файле МОЙПРОЕКТ.dpr

var
  MFormLogin : TFormLogin;
  MFormProgressBar : TFormProgressBar ;

....
begin
  Application.Initialize;
  MFormLogin := TFormLogin.Create(Application);

  try

    if MFormLogin.ShowModal<>mrCancel then begin

      MyUser  := MFormLogin.Edit_UserName.Text;
      UserPassw := MFormLogin.Edit_Passwd.Text;

   if  IsTrueVerify(MyUser,UserPass) then begin

      Application.Run;
   
      MFormProgressBar := TFormProgressBar.Create(Application);
      MFormProgressBar.Show
 
     Application.CreateForm(TForm1, Form1);
    MFormProgressBar .Progressbar1.Position :=      MFormProgressBar .Progressbar1.Position + 1
 ...
     Application.CreateForm(TForm100, Form100);
    MFormProgressBar .Progressbar1.Position :=      MFormProgressBar .Progressbar1.Position + 1
....
     Application.CreateForm(TForm1000, Form1000);
     Application.CreateForm(TForm1, Form1);
    MFormProgressBar .Progressbar1.Position :=      MFormProgressBar .Progressbar1.Position + 1
 
 end else begin 
      Application.MessageBox('Не ваш сегодня день.....','');
end
 end else begin 
      Application.MessageBox('Ну и не обидно.....','');
end

 finalle
     MFormLogin.Free;
     MFormPosition.Free;
 end;
    end;

Смысл в том, что до запуска приложения определяет и проверятся пароль, а потом уже при корректной аутентификации запускается все приложение. Мне кажется так прикольннее (хотя решение не совсем мое...
При этом отображаем процент загрузки приложения через форму MFormprogressBar где как душе угодно можно разместить процесс загрузки.
В моем случае - это чисто бегунок от 1... до 1000 по число загружаемых форм и все... Зато пользователь видит, что прога грузится и пароль сработал

[Шульц]

Сообщение от prod87

Я сделал так:
form1.hide;
form2.show;

Вроде бы как то что мне надо Но все равно всем спасибо

Ну это ты как то не совсем правильно сделал. Форма с логином не освобождает память, и тупо там сидит и жрет ее
Если так делаешь, то ведь когда ты закроешь все видимые формы в конце, приложение не закроется, так как главная форма (Форм1) не закроется. Закрывай ее тогда при закрытии второй.
ТЫ ее прячешь, не закрываешь.

[Gapro]

On Create Form2.ShowModal, затем через if проверка пароля и если правильно то close и работай в главном окне