а пошагово проходил по коду, когда он проходит по этому участку?
Пробовал, все нормально
Добавлено (28.05.2011, 06:55) --------------------------------------------- Собственно справился с проблемой через ActivePageIndex = 0. Тему можно закрывать.
На форме PageControl итри кнопки. При нажатии на кнопку 1, создается новая вкладка, кнопка 2 это удаление активной вкладки PageControl и свойство Enable Кнопки 3 становится False. Собственно интересует вопрос по Кнопке 2 ибо ибо свойство Enable кнопки 3 так и остается True КНОПКА 1:
Code
var Page : TsTabSheet; begin Page := TsTabSheet.Create(PageControl1); with Page do PageControl := PageControl1; Page.Caption:= 'Пустой файл'; PageControl1.ActivePageIndex := PageControl1.PageCount - 1; end;
КНОПКА 2:
Code
begin AllowClose := True; begin if PageControl1.PageCount < 0 then Button3.Enable := False; end; end;
ЗАКАЗ: Нужен логотип для сайта Help Development Ширина: 960 Высота: 225 Тона логотипа должны соответствовать стилю сайта, то есть цвета: черный, серый, зеленый, желтый. Желательно чтобы на логотипе присутствовали слова Help Development
Сообщение отредактировал slagusev - Четверг, 26 Мая 2011, 12:54
procedure TForm1.Save; var E : TSynEdit; control : TControl; begin control := PageControl1.ActivePage.FindChildControl('E'); if control <> nil then begin TSynEdit(control).Lines.SaveToFile(OpenDialog1.FileName); end;
Сообщение отредактировал slagusev - Среда, 25 Мая 2011, 07:42
Я только за, но я не хочу писать ети уроки, а учится по них. Например я б с удовольствием почитал о глсл шейдерах.
Принято на заметку, по мере возможностей будет добавлено))
Добавлено (24.05.2011, 21:22) --------------------------------------------- Кому не лень зайдите на сайт. Интересует его правильное отображение. Стало известно что на некоторых компьютерах кнопочная панель сразу после логотипа, двоиться стала (хотя соответственно должна быть одна). И прошу отписаться в этой теме если у кого-то также отображает
Собственно говоря решил пойти другим путем (теперь это не MDI). Добавил на форму PageControl и SynEdit. Добавил пункты меню создать и открыть. При нажатии на "создать", создается динамически страница в PageControl со встроенным в него SynEdit. При нажатии "открыть" все тоже самое практически, только соответственно в Созданный SynEdit загружается текст. Но все так же не могу дойти своим умом как сделать сохранить и сохранить как для активного SynEdit. Вот код:
procedure TForm1.CreateNewEditor; //Процедура создания PageControl и SynEdit var Page: TRzTabSheet; E: TSynEdit; begin Page := TRzTabSheet.Create(Page); Page.PageControl:=PageControl1; E:=TSynEdit.Create(Page); with E do begin Parent := Page; Align:=alClient; Gutter.ShowLineNumbers:=True; Gutter.Font.Size:=10; end; PageControl1.ActivePage:=Page; Page.Caption:='Файл.lua'; end;
procedure TForm1.OpenFile; //Процедура открытия файла var Page : TRzTabSheet; E : TSynEdit; begin if OpenDialog1.Execute then begin Page := TRzTabSheet.Create(self); Page.Caption:=ExtractFileName(OpenDialog1.FileName); Page.PageControl:=PageControl1; E := TSynEdit.Create(self); e.Parent:=Page; E.Align:=alClient; E.Lines.LoadFromFile(OpenDialog1.FileName); PageControl1.ActivePage:=Page; end;
end;
procedure TForm1.N2Click(Sender: TObject); //Пункт меню Создать begin CreateNewEditor; end;
procedure TForm1.N3Click(Sender: TObject); //Пункт меню Открыть begin OpenFile; end;
end.
Сообщение отредактировал slagusev - Вторник, 24 Мая 2011, 18:32
Создал MDI приложение, окна переключаются за счет закладок динамически создаваемых в PageControl. Собственно не получается сделать сохранение файла и сохранить как.
Да, да... Еще один сайт для игроделов. Где будут размещены статьи, уроки по игровым движкам, системам разработки и конструкторам игр. В будущем в планах создание программы по образу и подобию Delphi World
Жанровая направленность: Любые 3D игры Платформа: PC Лицензия: Бесплатен для не коммерции Исходный код: Закрыт Язык программирования: Не разобрался Поддержка: Графка - DIrectX 10/11, фотореалистичный рендеринг в реальном времени Физика - PhysX Модели - 3D Studio max, Maya, Modo, Google SketchUp и другие Графические форматы - DDS, JPG, PNG, TGA, PSD Звук: WAVE
Подключил к Game Maker библиотеку Max WinAPI2. Создал обработку событий кнопки и других элементов, при запуске программы и нажатии на кнопки ничего не происходит. Не работают даже примеры из справки по этой библиотеке.
Создание игр для: Windows, XBox, Sylverlight. В будущем планируется увеличение поддерживаемых платформ.
Тип распространения: Freeware, Open-source
Знание языков программирования: Не требуется, технология Point n' Click Дополнительно: Встроенная физика, Menu Maker - WYSIWIYG редактор меню и прочего HUD для ваших игр.
и добавлена лента новостей игровой индустрии ... Продолжаем развиваться так сказать)))