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

Как реализованы в 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]

Спасибо

---

← →
GrayFace ©   (2007-01-29 21:09) [7]

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 вся ветка

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



Память: 0.46 MB
Время: 0.03 c