MDI приложения.

← →
Совчсем новичок (2002-09-09 10:06) [0]

Смешно, но никак не могу вывести на экран дочернюю форму. Стили установил правильно и у главной и у дочерней. Может кто-подскажет как ее выводить

← →
Виктор Щербаков (2002-09-09 10:22) [1]

File|New|Projects|MDI Application
И изучай сгенерированный код.

← →
Совсем новичок (2002-09-09 13:31) [2]

Смотрел не помогает.
Там просто дочерняя форма имеет соответствующий стиль, главная соответственно. Добавляю свою форму с именем не MDIChild, а к примеру Form1, и просто исправляю имена. Никаких ошибок но дочерней формы на экране нет!!!

← →
Игорь Шевченко (2002-09-09 13:40) [3]

Совсем новичок (09.09.02 13:31)

А как бы посмотреть ваши действия ? :-)
(Фрагмент кода, или код целиком)

← →
от меня (2002-09-09 13:41) [4]

Эта процедура создает доч. формы. Только не забудь убрать в опциях проекта эту форму из Auto-create forms

procedure CreateMDIChildForm(Name: string);
var Child: TMDIChildForm;
begin
inc(MDICount);
Child := TMDIChildForm.Create(Application);
Child.Caption := Name;
end;

← →
Совсем новичок (2002-09-09 15:12) [5]

>> от меня - не работает. Вот код
Главная
var MDIForm: TMDIForm; implementation uses Unit2; {$R *.DFM} procedure CreateMDIChildForm(Name: string); var Child: TMDIChildForm; begin inc(MDICount); Child := TMDIChildForm.Create(Application); Child.Caption := Name; end; procedure TMDIForm.ToolButton1Click(Sender: TObject); begin CreateMDIChildForm("NONAME"); end; end.

Дочерняя
type TMDIChildForm = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; implementation {$R *.DFM} procedure TMDIChildForm.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end;

← →
Игорь Шевченко (2002-09-09 15:20) [6]

Осталось только удостоверится, что у главной форму указан FormStyle fsMDIForm, а у TMDIChildForm FormStyle равен fsMDIChild

← →
Совсем новичок (2002-09-09 15:35) [7]

Все указано правильно, вот в этом то и весь вопрос что не так. Никаких ошибок нет. Просто не появляется форма и все.

← →
Совсем новичок (2002-09-09 15:45) [8]

Еще раз все проверил, все правильно - а результата нет.

← →
Совсем новичок (2002-09-09 15:48) [9]

Просмотрел даже dfm файлы, все свойства тип-топ. Может у меня глаз замылился, чего-то не вижу. Кто-нить может помочь - взглянуть на исходный текст?

← →
от меня (2002-09-09 16:00) [10]

присылай текст

← →
Игорь Шевченко (2002-09-09 16:13) [11]

Child := TMDIChildForm.Create(Application);
Child.Caption := ....

Child.Show();

← →
от меня (2002-09-09 16:29) [12]

И зачем интересно Child.Show() - это лишнее

← →
NeyroSpace (2002-09-09 16:55) [13]

*\Delphi5\Demos\Doc\Textedit

← →
Совсем новичок (2002-09-09 17:10) [14]

Всем спасибо, дочерние формы прятались под ScrollBox. Неужели этого нельзя избежать, пробовал использовать Panel, тоже самое.

← →
Совсем новичок (2002-09-09 17:22) [15]

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

MDI приложения. Найти похожие ветки