| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Активация MDI окна [D6, Win2k]

ikos ©   (2002-09-26 09:14:00) 

Доброе утро!
Суть проблемы : при повторном открытии MDI-child нужно, если оно уже открыто, активировать его.
Есть сообщение WM_MDICHILDACTIVE которое должно это делать, но что-то оно не так делает или я не так его юзаю. Если кто-то сталкивался с подобной проблемой помогите!

---

KSergey   (2002-09-27 11:09:00) [1]

Поглядел внимательнее - однако продолжение/уточнение наверное требуется, если интересно (про TMDIChild)

////////////////////////////////////////////////////////////////////////////////
//
// Базовый класс для MDI Chaild окна
//
////////////////////////////////////////////////////////////////////////////////

unit Childwin;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, ComCtrls,
ToolWin, ExtCtrls, ActnList, ImgList;

type
TMDIChild = class(TForm)
ToolBar1: TToolBar;
ImageList1: TImageList;
ActionList1: TActionList;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

type
TMDIChildClass = class of TMDIChild;

implementation

{$R *.DFM}

{******************************************************************************
* При закрытии уничтожить окно
******************************************************************************}

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

end.

---

KSergey   (2002-09-27 11:05:00) [2]

Подробнстей как делал не помню - но вроде работает.
Ну и конечно переделать под свои нужды...

{******************************************************************************
* Создание дочернего MDI-окна
* Проверяет, создано ли уже окно указанного класса, если нет - создает, если
* да - активизирует ранее созданное.
* Вход:
* FormType - класс создаваемого MDI окна
* Title - заголовок окна
* Возвращает ссылку на созданное/активизированное окно.
******************************************************************************}

function CreateMDIChild(const FormType: TMDIChildClass): TMDIChild;
var
i: Integer;
flFound: Boolean;
begin
Result := nil;
flFound := False;
for i := 0 to MainForm.MDIChildCount-1 do
if MainForm.MDIChildren[i].ClassType = FormType then
begin
Result := (MainForm.MDIChildren[i] as TMDIChild);
Result.Show;
flFound := True;
end;
if NOT flFound then Result := FormType.Create(MainForm);
end;

---

Наверх