MDI приложения

Избавление от скролов в MDI форме

2017-08-10T19:44:33+07:00

Code:

{ Избавление от ScrollBar'ов в MDI-форме. (С) Peter Below (TeamB) }

{ Не надо VCL переписывать :-) }

unit MainForm;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Menus;

type

TfMain = class(TForm)

MainMenu1: TMainMenu;

Newchild1: TMenuItem;

Newchild2: TMenuItem;

procedure Newchild2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fMain: TfMain;

implementation

uses ChildForm;

{$R *.DFM}

procedure TfMain.Newchild2Click(Sender: TObject);

begin

with TfChild.Create(Application) do

Show();

end;

function ClientWindowProc( wnd: HWND; msg: Cardinal; wparam, lparam: Integer ): Integer; stdcall;

var

f: Pointer;

begin

f := Pointer( GetWindowLong( wnd, GWL_USERDATA ));

case msg of

WM_NCCALCSIZE:

if ( GetWindowLong( wnd, GWL_STYLE ) and

(WS_HSCROLL or WS_VSCROLL)) <> 0 then

SetWindowLong( wnd, GWL_STYLE, GetWindowLong( wnd, GWL_STYLE )

and not (WS_HSCROLL or WS_VSCROLL));

end;

Result := CallWindowProc( f, wnd, msg, wparam, lparam );

end;

procedure TfMain.FormCreate(Sender: TObject);

begin

if ClientHandle <> 0 then begin

if GetWindowLong( ClientHandle, GWL_USERDATA ) <> 0 then

Exit; {cannot subclass client window, userdata already in use}

SetWindowLong(ClientHandle, GWL_USERDATA, SetWindowLong( ClientHandle,

GWL_WNDPROC, integer( @ClientWindowProc)));

end;

end.

Как отобразить модально MDIChild форму

2017-08-10T19:46:50+07:00

Как выполнить код после создания MDIChild-формы но до появления ее на экране?
Как отобразить MDIChild-форму модально?

1.Убераешь свою MDIChild форму из автосоздания: (MainMenu) Project->Options->Forms. Там её перебрасываешь в: Available forms

2. Переключаешься на свою MDIChild форму и дописываеш в описание класса(пусть например твой класс формы для MDIChild называется TForm2):

Подробнее...

Как сделать MDI-приложение, где сливаются меню дочернего и главного окна, и полосы инструментов?

2017-08-10T19:09:09+07:00

Ваpиант 1. CoolBar.

Code:

procedure TMainForm.SetBands(AControls: array of TWinControl;

ABreaks: array of boolean);

var

i: integer;

begin

with CoolBar do

begin

for i:=0 to High(AControls) do

begin

if Bands.Count=succ(i) then

TCoolBand.Create(Bands);

with Bands[succ(i)] do

begin

if Assigned(Control) then

Control.Hide;

MinHeight:=AControls[i].Height;

Break:=ABreaks[i];

Control:=AControls[i];

Control.Show;

Visible:=true;

end

end;

for i:=High(AControls)+2 to pred(Bands.Count) do

Bands[i].Free

end

end;

Подробнее...

Как сделать родительское окно с фоновым рисунком в клиентской области?

2017-08-10T19:45:21+07:00

Для того чтобы сделать это выполните следующие шаги:

Создайте новый проект.

Установите FormStyle формы в fsMDIForm

Разместите Image на форме и загрузите в него картинку.

Найдите { Private Declarations } в объявлении формы и добавьте следующие строки:

Подробнее...

Как спрятать окна MDI Child

2017-08-10T19:44:06+07:00

Code:

procedure TCustomForm.VisibleChanging;

begin

if (FormStyle = fsMDIChild) and Visible then

raise EInvalidOperation.Create(SMDIChildNotVisible);

end;

Как убрать заголовок в дочерней форме MDI?

2017-08-10T16:56:49+07:00

Если в дочерней форме MDI установить BorderStyle в bsNone, то заголовок формы не исчезнет. (Об этом сказано в хелпе). А вот следующий пример решает эту проблему:

Code:

type

... = class(TForm)

{ other stuff above }

procedure CreateParams(var Params: TCreateParams); override;

{ other stuff below }

end;

...

procedure tMdiChildForm.CreateParams(var Params: tCreateParams);

begin

inherited CreateParams(Params);

Params.Style := Params.Style and (not WS_CAPTION);

end;

Подробнее...

Как узнать что MIDI форма изменила статус?

2017-08-10T19:45:42+07:00

Code:

private

Procedure WMSize( Var msg: TWMSize ); Message WM_SIZE;

...

Procedure TChildForm.WMSize( Var msg: TWMSize );

Begin

inherited;

If msg.SizeType = SIZE_MINIMIZED Then

...

End;

Меню дочерних MDI-форм

2017-08-10T18:14:47+07:00

Так как MDI-приложения всегда объединяют меню дочерних окон с главным меню родительского окна, вы можете установить определенное значение для указания позиции элементов меню в новой, объединенной строке меню. Это называется индексом группы. Но работает оно только для видимых пунктов меню.

Так, например, если ваше MDI-меню имеет:

[Файл] [Вид] [О программе] (со значениями индексов групп 1 5 10) (Значения не имеют никакого значения (извините за невольный каламбур), они используются только лишь для сортировки),

Подробнее...

Модуль данных для каждого MDIChild

2017-08-10T19:43:45+07:00

Когда во время разработки вы устанавливаете "DataSource"-свойство в БД-компонентах для указания на модуль данных, VCL во время выполнения приложения будет пытаться создать связь с существующим TDataModule, основываясь на его свойтсве Name. Так, если вы добавите модуль данных к вашему проекту и переместите его в свойстве проекта из колонки автоматически создаваемых форм в колонку доступных, вы сможете разработать форму, содержащую элементы управления для работы с базами данных, после чего несколькими строчками кода можете создать экземпляр формы, имеющий экземпляр собственного модуля данных.

С помощью Репозитория создайте "standard MDI application" (стандартное MDI-приложение), в котором модуль TMDICHild будет похож на приведенный ниже. Добавленные строки имеют комментарий {!}. Хитрости спрятаны в конструкторе create и задании другого порядка следования операторов.

Подробнее...

Открытие MDI-окон определенного размера

2017-08-10T18:13:44+07:00

Code:

var

ProjectWindow: TWndProject;

begin

If ProjectActive=false then

begin

LockWindowUpdate(ClientHandle);

ProjectWindow:=TWndProject.Create(self);

ProjectWindow.Left:=10;

ProjectWindow.Top:=10;

ProjectWindow.Width:=373;

ProjecTwindow.Height:=222;

ProjectWindow.Show;

LockWindowUpdate(0);

end;

Используйте LockWindowUpdate перед созданием окна и после того, как создание будет завершено.

Позиция дочерних MDI-окон

2017-08-10T18:15:18+07:00

Автор: Richard Cox

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

У меня была аналогичная проблема -- она проявлялась при условии, когда свойство главной формы WindowState устанавливалось на wsMinimized.

Вот мое решение: добавьте этот небольшой метод к вашей главной форме:

Подробнее...

Почему MDI Child форма при закрывании просто минимизируется?

2017-08-10T18:12:49+07:00

Обрабатывайте событие OnClose для формы и выставляйте в нем параметр Action в caFree. Дело в том, что его значение по умолчанию

для MDI Child форм caMinimize. Кстати, если сделать Action := caNone, то форму нельзя будет закрыть

Придание MDI-формам большей трехмерности

2017-08-10T19:43:13+07:00

Code:

constructor TMainForm.Create(AOwner: TComponent);

begin

Inherited Create(AOwner);

SetWindowLong(ClientHandle, GWL_EXSTYLE,

GetWindowLong(ClientHandle,

GWL_EXSTYLE) or WS_EX_CLIENTEDGE);

SetWindowPos(ClientHandle, 0, 0, 0, 0, 0,

swp_DrawFrame or swp_NoMove or swp_NoSize

or swp_NoZOrder);

end;

Проблема всплывающих подсказок в дочерних MDI-формах

2017-08-10T18:14:15+07:00

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

Объявите следующую процедуру в классе вашей главной формы:

Code:

private

{============================================================}

{ Процедура, вызываемая приложением всякий раз, когда }

{ приложение хотело бы показать всплывающую подсказку. }

{ Добавляет хинт на панель статуса. }

{============================================================}

procedure ShowHint(Sender : TObject);

Подробнее...

Разработка MDI приложений в Delphi

2017-08-10T16:55:09+07:00

перевод одноимённой статьи с delphi.about.com)

Что такое MDI?

MDI расшифровывается как multiple document interface (многодокументный интерфейс). В приложениях с MDI, в основном (родительском) окне можно окрыть более одного дочернего окна. Данная возможность обычно используется в электронных таблицах или текстовых редакторах.

Каждое MDI приложение имеет три основные составляющие:

Одну (и только одну) родительскую форму MDI, Одну и более (обычно больше) дочерних форм MDI, и основное меню MDI.

Подробнее...

Сколько открыто дочерних окон?

2017-08-10T18:13:20+07:00

Code:

Form1.MDIChildCount

Подробнее...

Создать MDI окно с координатами 0,0

2017-08-10T19:46:01+07:00

Code:

procedure TFormX.FormCreate(Sender: TObject);

Var

r: TRect;

client: HWND;

Begin

client := application.mainform.clienthandle;

Windows.GetClientRect( client, r );

MapWindowPoints( client, HWND_DESKTOP, r, 2 );

BoundsRect := r;

End;

Фон MDI-окон

2017-08-10T17:04:07+07:00

Привожу код, который может оказаться полезным. Он позволяет в обычной или MDI-форме создать графический tile-фон или градиентную заливку.

(Tile - "секция, плитка" - непрерывное заполнение определенной области немасштабируемым изображением слева-направо сверху вниз - В.О.)

Подробнее...

MDI приложения

Избавление от скролов в MDI форме

Как отобразить модально MDIChild форму

Как выполнить код после создания MDIChild-формы но до появления ее на экране?Как отобразить MDIChild-форму модально?

Как сделать MDI-приложение, где сливаются меню дочернего и главного окна, и полосы инструментов?

Как сделать родительское окно с фоновым рисунком в клиентской области?

Как спрятать окна MDI Child

Как убрать заголовок в дочерней форме MDI?

Как узнать что MIDI форма изменила статус?

Меню дочерних MDI-форм

Модуль данных для каждого MDIChild

Открытие MDI-окон определенного размера

Позиция дочерних MDI-окон

Почему MDI Child форма при закрывании просто минимизируется?

Придание MDI-формам большей трехмерности

Проблема всплывающих подсказок в дочерних MDI-формах

Разработка MDI приложений в Delphi

Что такое MDI?

Сколько открыто дочерних окон?

Создать MDI окно с координатами 0,0

Фон MDI-окон

Как выполнить код после создания MDIChild-формы но до появления ее на экране?
Как отобразить MDIChild-форму модально?