[lostbananan]

Добрый вечер!
Первое - пршу прощения у модераторов - я позавчера кажется ничего не нарушал - это либо у меня нет плохо фурычил - либо у вас чего-то на серваке...
Теперь вопрос:
В проекте естьдва окна главное и 2-е.
так вот для onClose главного окна написал такой код:

Код:

  Form2.Show;

Но главное окно закрывается а окна 2-го так и не вижу...
Что делать? Может не то событие я обрабатываю?
Собственно налдо чтобы главное окно (приложение) законрчило свою работу после того как отработает дополнительное окно

Неужели никто с такой проблемой не сталкивался??

[lmikle]

Сталкивался. Проблема в том, что главное окно и есть основная программа (т.е. главная WndProc), когда оно закрывается, то происходит завершение всей программы. Если тебе надо показать еще одно окно после, фактически, завершения программы, то тебе надо в .dpr файле после вызова Application.Run добавить код показа этого окна:
1. "Выкидываешь" Form2 из списка автосоздаваемых форм.
2. Открываешь файл проекта (Project -> View source)
3. Добавляешь примерно такой код:

Код:

begin
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;

    // Показываем вторую форму
    With Form2.Create(Nil) Do
      Begin
        Show;
        Update;
        Sleep(5000); // Показваем форму в течении 5 сек.
        Free;
      End;
end.

Код выше только для примера, если тебе надо, что бы юзер что-то сделал в этом окне, то надо будет сделать отслеживание этого и закрывать окно по действию пользователя.

[lostbananan]

Спасибо! Попробую завтра - сегодня я уже устал...

Уже пробывал - чего-то не получается - на Sleep(5000); ругается неопредделенный идентификатор, когда слип заремарир в ран-тайм режиме выдает система ошибку EAcsessViolation// чтение по адресу 00000..
Чьто не так:
вот весь код моего проекта:

Код:

program Loh1;

uses
  Forms,
  main in 'main.pas' {Form1},
  Unit2 in 'ini\Головна\1\Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

  // Показуємо додаткову форму форму
    With Form2.Create(Nil) Do
      Begin
        Show;
        Update;
//        Sleep(5000);
        Free;
      End;
end.

[M.A.D.M.A.N.]

Дак оно не создано, вот и ругается EAccessViolation.

TForm2.Create

[lostbananan]

Моржет я чего-то недопонимаю но по поводу создания окна, вот код:

Код:

With Form2.Create(Nil) Do
      Begin
        Show;
        Update;

м написал я тако1й код:

Код:

 Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
    // Ïîêàçóºìî äîäàòêîâó ôîðìó ôîðìó
    TForm2.Create(Nil);
    With Form2.Create(Nil) Do
      Begin
        Show;
        Update;
//        Sleep(5000);
        Free;
      End;

Все-равно ругается Аксес виолатион.... Чего нетак??

[M.A.D.M.A.N.]

TForm2.Create

я уже писал тебе.

Код:

With TForm2.Create(Nil) Do

[lostbananan]

Такой код:

Все-равно аксес виолатион и при этом программа зависает!

Код:

With TForm2.Create(Nil) Do
      Begin
        Show;
        Update;
//        Sleep(5000);
        Free;
      end;

[lostbananan]

Кно-нибудь, помогите разобраться!!
и еще вопрос + к предыдущему а я могу из второй формы видеть первую и наоборот? Если да - то как?

[Aristarh Dark]

Всеж написали уже, куда еще-то.

[Alegun]

Можно сделать и так:

Код:

Form2 := TForm2.Create(Self);

Работает следующим образом:

кидаем на первую форму баттон и вот это:

Код:

...

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Button1Click(Sender: TObject);

procedure fc1;

...

var
  Form1: TForm1;
   CnClose: boolean;
...

uses Unit2;
...

procedure TForm1.fc1;
begin
Form2:= TForm2.Create(Self);
Form2.Show;
Form1.Visible:= false;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= CnClose;
fc1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
fc1;
end;

а на вторую также кнопарь и такое:

Код:

...
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure fc2;

...
uses Unit1;
...

procedure TForm2.Button1Click(Sender: TObject);
begin
fc2;
end;

procedure TForm2.fc2;
begin
CnClose:= true;
form1.Close;
end;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
fc2;
end;

не забыть только у обеих форм FormCloseQuery подключить.

[lostbananan]

Сделал как в коде что в архиве (аорхив я распаковывл ) компилировал - все нормально работает...
Показываю полны код своего проекта:

Код:

program Loh1;

uses
  SysUtils,
  Forms,
  main in 'main.pas' {Form1},
  Unit2 in 'ini\Ãîëîâíà\1\Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
    // Ïîêàçóºìî äîäàòêîâó ôîðìó ôîðìó
   with TForm2.Create(nil) do
   begin
      Show;
      Update;
      Sleep(9000);
      Free;
    end;

 end.

Дак опять почему то аксес виолатион!
Может где еще у меня что-то неправильно?
И еще : на какой вкладке палитры компонентов находятся компоненты опендиалог и саведиалог\?

[lostbananan]

Мастера! Помогите!!!
Компоненты диалогов уже нашел, а вот почему открытие второй (дополнительной) формы вызывает аксе виолатион (при этом форма таки появляется)???
Еще: Как указать в саве диалог чтобы имя файла сразу же бало и с расширением?

[Aristarh Dark]

Что у тебя в OnShow и OnCreate у второй формы?

[lostbananan]

Вторая форма - это неглавная?
у нее там ничего, у главной формы - онСоу - ничего, в онКреате - чтение из ини-файла...

[Aristarh Dark]

Какой-то код у меня во второй форме падает, смотри что у тебя там.