| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Form2.Parent:= Form1
A.L. © (2002-02-14 14:05:00)У обоих форм FormStyle:= fsNormal
при этом заголовок Form2 всегда остается серым
как исправить?
A.L. (2002-02-28 10:43:00) [1]up
A.L. (2002-02-26 10:14:00) [2]handra
Тогда получим исключение.
см. строку
if (FParentForm = nil) or (FParentForm.ClientHandle = 0) then
модуля uChForm
handra (2002-02-26 10:05:00) [3]
constructor TTabChildForm.Create(AOwner: TComponent; AParent: TForm);
begin
FParentForm:= AParent;
inherited Create(AOwner);
end;
А почему бы две строчки между begin и end не поменять местами?
A.L. (2002-02-26 08:59:00) [4]что, идей нет?
A.L. (2002-02-22 08:12:00) [5]up
A.L. (2002-02-21 11:23:00) [6]panov
Но при этом получится, что каждая рабочая область в отдельном окне.
Так я могу и в одной проге сделать.
Мне охота в чтоб области находились в едином окне, а внизу окна TabSet (типа как в Excel-е переключение между листами)
panov (2002-02-21 10:55:00) [7]У тебя есть основная программа с TabSet. При необходимости создать дополнительную рабочую область(как у тебя звучит), запускаешь программу, где у тебя используется технология MDI,
т.е. запускаешь столько экземпляров своего приложения, сколько тебе нужно и работаешь с ними, пересылая сообщения между приложениями.
A.L. (2002-02-21 09:45:00) [8]panov
А что значит открыть в процессе свою рабочую область?
Каким образом? Можно чуть подробнее идею?
panov (2002-02-21 09:00:00) [9]Если так хочется сделать с MDI, то можно, как вариант, попробовать управлять из TabSet разными процессами, в каждом из которых открывается своя рабочая область...
A.L. (2002-02-21 08:34:00) [10]help!
A.L. (2002-02-20 09:27:00) [11]up
A.L. (2002-02-19 11:39:00) [12]Access Violation где-то в недрах user32.dll не могу я его отследить.
Видимо такой подход не прокатит.
Но как же мне реализовать задуманный интерфейс:
В приложении есть несколько рабочих областей. В каждой области свое меню, свои тулбары, свои дочерние окна. Внизу TabSet, который позволяет переключаться между областями.
Help!
Юрий Зотов (2002-02-18 17:03:00) [13]Вынужден повториться - выясните ТОЧНО, где возникает Access Violation. Иначе разговор беспредметен.
A.L. (2002-02-18 16:54:00) [14]Все прекрасно работает, если не пытаться засунуть MDIForm формы в пределы главного окна программы (т.е. убрать строки типа fmTab1.Parent:= fmMain)
MDIChild окна создаются в разных MDIForm окнах, закрываются и вообщем все пучком.
Но мне то надо не совсем так.
Юрий Зотов (2002-02-18 12:44:00) [15]Сдается мне, что -=CrazyFish=- все же прав. Но попробуйте следующее - в классе дочерних окон напишите обработчик WM_SYSCOMMAND c SC_MAXIMIZE, поставьте в нем BreakPoint, пройдите отладчиком и выясните ТОЧНО, где возникает Access Violation.
A.L. (2002-02-18 12:02:00) [16]а в ответ тишина...
:(
A.L. (2002-02-16 22:24:00) [17]-=CrazyFish=-
Это не так
-=CrazyFish=- (2002-02-15 11:30:00) [18]У формы, содержащей дочерние MDI-окна, должено быть установлено свойство
FormsStyle:=fsMDIForm. Такая форма должна быть в приложении одна и являться главной. При попытке использовать в одном приложении несколько главных MDI-форм ошибок не избежать.
Удачи.
A.L. (2002-02-15 10:35:00) [19]Юрий Зотов
В проекте открывается несколько форм:
Application.CreateForm(TfmMain, fmMain); //Главная форма
Application.CreateForm(TfmTab, fmTab1);
fmTab1.Parent:= fmMain;
...
Application.CreateForm(TfmTab, fmTabN);
fmTabN.Parent:= fmMain;
у форм fmTab1..fmTabN:
FormStyle:= fsMDIForm;
В этих окнах пытаюсь создавать MDIChild окна,
fmChild:= TTTabChildForm.Create(Application, fmTabForm);
наследники класса:
unit uChForm;
interface
uses
Windows, Classes, Controls, Forms, Messages, Consts;
type
TTabChildForm = class(TForm)
private
{ Private declarations }
FParentForm: TForm;
protected
FClientHandle: HWND;
procedure CreateWindowHandle(const Params: TCreateParams); override;
procedure DestroyWindowHandle; override;
public
{ Public declarations }
constructor Create(AOwner: TComponent; AParent: TForm); reintroduce; overload;
end;
implementation
procedure TTabChildForm.CreateWindowHandle(const Params: TCreateParams);
var
CreateStruct: TMDICreateStruct;
begin
if (FormStyle = fsMDIChild) and not (csDesigning in ComponentState) then
begin
if (FParentForm = nil) or (FParentForm.ClientHandle = 0) then
raise EInvalidOperation.Create(SNoMDIForm);
with CreateStruct do
begin
szClass:= Params.WinClassName;
szTitle:= Params.Caption;
hOwner:= HInstance;
X:= Params.X;
Y:= Params.Y;
cX:= Params.Width;
cY:= Params.Height;
style:= Params.Style;
lParam:= Longint(Params.Param);
end;
WindowHandle:= SendMessage(FParentForm.ClientHandle,
WM_MDICREATE, 0, Longint(@CreateStruct));
Include(FFormState, fsCreatedMDIChild);
end else
begin
inherited CreateWindowHandle(Params);
Exclude(FFormState, fsCreatedMDIChild);
end;
end;
procedure TTabChildForm.DestroyWindowHandle;
begin
if fsCreatedMDIChild in FFormState then
SendMessage(FParentForm.ClientHandle, WM_MDIDESTROY, Handle, 0)
else
inherited DestroyWindowHandle;
FClientHandle:= 0;
end;
constructor TTabChildForm.Create(AOwner: TComponent; AParent: TForm);
begin
FParentForm:= AParent;
inherited Create(AOwner);
end;
end.
создаваться то они создаются, но, например, при максимизации дочернего окна и еще где не поподя лезет "Access violation"
Юрий Зотов (M) (2002-02-15 09:30:00) [20]> но при этом и Child окна нормально не работают (Access violation сплошной)
Возможно, причина вовсе не в том, что Вы предполагаете. Приведите фрагмент кода, дающий Access violation, тогда, вероятно, можно будет сказать конкретнее.
| |
Страницы: 