Три окна и GW

← →
Прохожий 001 (2008-03-07 14:05) [0]

Мне нужно сделать так, чтобы при открытии нескольких окон (здесь - три штуки) и последующем закрытии окон, которые были открыты позже, активировалось то окно, которое находится "под ним", т.е. то, которое было открыто на шаг раньше. Какую команду мне использовать? Заранее спасибо.

← →
Palladin © (2008-03-07 14:48) [1]

команду присвоения

← →
Сергей М. © (2008-03-07 15:19) [2]

> "под ним", т.е. то, которое было открыто на шаг раньше

Временной порядок "открытия" окон напрямую не связан с Z-порядком.

← →
Прохожий 001 (2008-03-11 08:11) [3]

А делать-то что?:)

← →
Семеныч (2008-03-11 14:35) [4]

> Прохожий 001 (11.03.08 08:11) [3]
> А делать-то что?:)

Вариант 1 (самый простой).
Использовать ShowModal, а не Show.

Вариант 2 (если ShowModal не годится).
Каждая форма, когда она порождает следующую, передает ему ссылку на себя. Когда форма закрывается, она активизирует форму по этой ссылке.

← →
Leonid Troyanovsky © (2008-03-11 15:47) [5]

> Семеныч (11.03.08 14:35) [4]

> Вариант 2 (если ShowModal не годится).
> Каждая форма, когда она порождает следующую, передает ему
> ссылку на себя. Когда форма закрывается, она активизирует
> форму по этой ссылке.

Если они немодальные, то порядок их закрытия (уничтожения) произвольный.

Да, и, во-ще, автор чего-то недоговаривает.

--
Regards, LVT.

← →
Последний доброхот (2008-03-11 15:56) [6]

> Прохожий 001 (07.03.08 14:05)

Хранить в массиве дескрипторы создаваемых окон. При закрытии окна активировать предыдущее окно.

← →
Игорь Шевченко © (2008-03-11 16:12) [7]

unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation uses SomeForm; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin with TForm2.Create(Self) do Show; end; end.

unit SomeForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); end; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin with TForm2.Create(Self) do Show; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin if (Owner is TCustomForm) then TCustomForm(Owner).SetFocus; end; end.

Не оно ?

← →
Последний доброхот (2008-03-11 16:18) [8]

> Игорь Шевченко © (11.03.08 16:12) [7]

> Мне нужно сделать так, чтобы при открытии нескольких окон
> (здесь - три штуки) и последующем закрытии окон

← →
{RASkov} © (2008-03-11 16:32) [9]

> [8] Последний доброхот (11.03.08 16:18)

Мне тоже не совсем понятен вопрос автора, но я присоединяюсь к ответу Игоря...
Он, кстати, так же уточняет свой вариант ответа у автора.... см. в конце поста ИШ.

← →
Игорь Шевченко © (2008-03-11 16:33) [10]

Последний доброхот (11.03.08 16:18) [8]

И чего не так ?

← →
Последний доброхот (2008-03-11 16:36) [11]

> И чего не так ?

Ему окна, а не формы интересуют.

← →
Игорь Шевченко © (2008-03-11 16:41) [12]

> Ему окна, а не формы интересуют.

ему пока молчит как партизан

> [11] Последний доброхот (11.03.08 16:36)
> Ему окна, а не формы интересуют.

А что есть понятие "окно" - в конве для начинающих?

← →
Последний доброхот (2008-03-11 16:54) [14]

> {RASkov} © (11.03.08 16:50) [13]
> > [11] Последний доброхот (11.03.08 16:36)
> > Ему окна, а не формы интересуют.
>
> А что есть понятие "окно" - в конве для начинающих?

А понятие "окно" в любом контекстве можно употребить только как "окно". Так же и форму.

> [14] Последний доброхот (11.03.08 16:54)
> можно употребить только как "окно".

Вот именно что можно, но никто не обещал :)

← →
Последний доброхот (2008-03-11 17:04) [16]

> {RASkov} © (11.03.08 16:56) [15]
> > [14] Последний доброхот (11.03.08 16:54)
> > можно употребить только как "окно".
>
> Вот именно что можно, но никто не обещал :)

Ну додумывать много можно;)

> Игорь Шевченко © (11.03.08 16:12) [7]

> if (Owner is TCustomForm) then
> TCustomForm(Owner).SetFocus;

Предположить, что здесь достаточно Action := caFree;
еще проще.

--
Regards, LVT.

> {RASkov} © (11.03.08 16:32) [9]

> Мне тоже не совсем понятен вопрос автора

А мне совсем непонятен :)
Особенно "открыто на шаг раньше" & GW_HWNDPREV.

--
Regards, LVT.

Три окна и GW_HWNDPREV Найти похожие ветки