И опять вопрос по MDI-приложению

[Технолог]

Скачал. Но чето не пойму: де там сплеш-форма? Там ввод логина и пароля, к тому же и не запускается...

[D-mon]

как раз форма логина и пароля и реализована как сплеш форма... открой файл ДПР и увидь там всё...
А форму логина и пароля ты можешь редактировать как те захочеться, сделать ее например без Каптиона и картинку туда поставить...

[Технолог]

Есть один вопрос: как обработать нажатии кнопки "Начать". У тебя там просто написано

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.ShowModal;
  if((Form1.Log='1') and (Form1.Pass='1'))then
   begin
    Application.CreateForm(TForm2, Form2);
    Form2.ShowModal;
   end
  else ShowMessage('Неправильно!!!');
  Form1.Free;
  Application.Run;
end.

а мне надо распознать какая кнопка нажата

[D-mon]

Изменения в Form1

procedure TForm1.Button1Click(Sender: TObject);
begin
 Close;
 Form1.ModalResult:=mrOk;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 close;
 Form1.ModalResult:=mrCancel;
end;

Изменения в ДПР

Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.ShowModal;
  if(Form1.ModalResult=mrOk)then
   begin
    Application.CreateForm(TForm2, Form2);
    Form2.ShowModal;
   end
  else ShowMessage('Вы нажали выход');
  Form1.Free;
  Application.Run;

[Технолог]

А в чем прикол: "Undeclared identifier: 'mrOk' " и показывает на строку "if (FormBegin.ModalResult=mrOk) then" ?

[SunKnight]

Можно так:
Создаете форму(Form1) это будет окно диалога, и создаете MDI форму.
Затем Project->Option->Forms. Переносите MDI форму в Available. mainform ставите Form1. Затем на кнопку "открыть" пишите:

MainForm:=TMainForm.Create(applicat ion);//главная форма
MainForm.Show;//показываем ее
Form1.Visible:=false;//скрываем диалог

Только учтите что главной формой будет диалог.
Это простейший вариант

[D-mon]

Сообщение от Технолог

А в чем прикол: "Undeclared identifier: 'mrOk' " и показывает на строку "if (FormBegin.ModalResult=mrOk) then" ?

В Uses файла ДПР добавь Controls

[D-mon]

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

Можно так:
Создаете форму(Form1) это будет окно диалога, и создаете MDI форму.
Затем Project->Option->Forms. Переносите MDI форму в Available. mainform ставите Form1. Затем на кнопку "открыть" пишите:

MainForm:=TMainForm.Create(applicat ion);//главная форма
MainForm.Show;//показываем ее
Form1.Visible:=false;//скрываем диалог

Только учтите что главной формой будет диалог.
Это простейший вариант

То что я делал, это то что ты написал, но не делал этого явно... Делфа сама всё переставила за меня.

[Технолог]

Чето я ваще запутался...

[D-mon]

В чём ты запутался???