Скачать: CL | DM;

Активация MDI окна   Найти похожие ветки 

← →
ikos ©   (2002-09-26 09:14) [0]

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

---

← →
KSergey ©   (2002-09-27 11:05) [1]

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

{******************************************************************************
* Создание дочернего 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;

---

← →
KSergey ©   (2002-09-27 11:09) [2]

Поглядел внимательнее - однако продолжение/уточнение наверное требуется, если интересно (про 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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c