Как реализованы в 1С Предприятии формы приложения ?

← →
Valera (2007-01-28 22:33) [0]

Насколько я знаю MDI интерфейс не позволяет разворачивать формы на весь экран не затрагивая при этом других. Подскажите как это реализовано в 1С и как это можно реализовать? Ведь там при открытом журнале можно развернуть любой документ не затрагивая его самого.

← →
tesseract © (2007-01-28 23:05) [1]

> Насколько я знаю MDI интерфейс не позволяет разворачивать
> формы на весь экран не затрагивая при этом других.

Почему?

ЗЫ: 1С написан на чистои api ещё под win3.11.

← →
Valera (2007-01-28 23:39) [2]

> tesseract ©

Можно ли найти примеры на Делфи?

← →
tesseract © (2007-01-29 00:02) [3]

> Можно ли найти примеры на Делфи?

Ctrl+F1. каталог Demos в папке delphi.

← →
Valera (2007-01-29 00:19) [4]

> Ctrl+F1. каталог Demos в папке delphi.

Не те примеры, вопрос как переделать оконную процедуру или конструктор окна? Ведь постоянно все моргает - мой код когда нужно открывать форму без wsMaximized.

var
InsertChild: TMDIChild;
i: integer;
y: boolean;
begin
y:= true;
if MDIChildCount > 0 then
for i:= 0 to MDIChildCount-1 do
if MDIChildren[i] is TMDIChild then
begin
y:= false;
MDIChildren[i].Show;
if MDIChildren[i].WindowState = wsMinimized then
MDIChildren[i].WindowState:= wsNormal;
break;
end;
if y then
InsertChild := TMDIChild.Create(Application);

← →
sniknik © (2007-01-29 01:39) [5]

> разворачивать формы на весь экран не затрагивая при этом других
подключи модуль forms к себе в проект, и в нем
в процедуре
procedure TCustomForm.CreateParams(var Params: TCreateParams);
закоментарь строку
if FormStyle = fsMDIChild then WindowClass.lpfnWndProc := @DefMDIChildProc;
правда чтонибудь может "сломаться"... но попробуй, может пойдет.

← →
Valera (2007-01-29 01:51) [6]

Спасибо

Valera (29.01.07 0:19) [4]
MDIChildren[i].Show;
if MDIChildren[i].WindowState = wsMinimized then
MDIChildren[i].WindowState:= wsNormal;
Попробуй местами строчки поменять. Или ShowWindow(MDIChildren[i].Handle, SW_SHOWNORMAL);

Как реализованы в 1С Предприятии формы приложения ? Найти похожие ветки