Показать полную графическую версию : Панель открытых дочерних форм на главной форме в MDI приложениях.
Подскажите пожалуйста, как сделать панель окон в MDI приложении Delphi, желательно стандартными средствами, не скачивая и не устанавливая других компонентов.
Ситуация такая: На родительской форме есть MainMenu. При выборе некоторых его пунктов, открываются дочерние формы. Нужно сделать так, чтобы:
1. Внизу родительской формы на панели окон отобразилась кнопка (вкладка, закладка, всё что угодно...) с названием этого окна.
2. При щелчке на закладку, форма становилась активной и выходила на передний план.
3. При закрытии окна, закладка исчезала.
Сразу скажу, я не мастер в Delphi, но хочу научится, поэтому если можно, варианты с примерами поподробнее. На какой форме, в какой процедуре и что писать.
Использую Delphi 7.
Заранее спасибо.
Мда...
Есть 2 варианта:
- никто и никогда не делал такой панели в своих прогах (в чём я сильно сомневаюсь);
- никто и никогда не делал такой панели в своих прогах с помощью стандартных средств (это более вероятно).
Если есть компоненты, выполняющие роль таких панелей (чёрт с ними если не стандартные), сообщите пожалуйста.
Kapuha, вариант в Delphi Express вас устроит?
Смотреть св-ва форм и объектов. Здесь задача в бОльшей степени логическая, нежели программистская.
в MDI приложении Delphi »
Каких приложениях? А, разобрался.
Давайте так. Я сделаю простенькую рабу как попало как я понял, а дальше будет видно?
Если что, то ближе к 15-16 часам. Если совсем нет, то в понедельник-среду. Просто среда разработки на работе, дома только Lazarus.
Хотя на подобных задачах разницы в них нет.
Я в принципе кое что сделал...
Процедура клика по пункту главного меню, которое открывает дочернее окно
procedure TMainForm.N17Click(Sender: TObject);
var F_DBConnect: TF_DBConnect;
mytab: TTabSheet;
begin
F_DBConnect := TF_DBConnect.Create(Application);
F_DBConnect.Width:=420;
F_DBConnect.Height:=340;
with PageControl1 do
begin
mytab:=TTabSheet.Create(Self);
mytab.PageControl:=PageControl1;
mytab.Caption:='Соединение с БД'; //Задаётся название вкладке на панели задач. Будет отображаться на ярлычке
mytab.Name:='sDBConn'; //Задаётся имя вкладке на панели задач
iDBConn:=mytab.PageIndex; //Переменной iDBConn присваивается индекс вкладки
PageControl1.ActivePageIndex:=iDBConn; //По индексу делается активной вкладка соответствующая данному окну.
end;
end;
Впринципе, тут всё нормально работает... даже вкладка удаляется, при закрытии окна.
Только один минус... Если повторно попытаться открыть уже открытое дочернее окно, то выскакивает ошибка, что компонент с именем в свойстве "sDBConn" уже есть... Тут надо просто проверку на открытость включит и если уже открыта, то просто сделать активной.
А вот на главной форме...
При нажатии на вкладку панели задачь выскакивает ошибка...
_____________________________________________________________________________________________
Project MyProgram.exe raised exception class EAccessViolation with message 'access violation at adress 0045BE36 in
module 'MyProgram.exe'. Read of address 000002F4'. Process stopped. Use Step or Run to continue.
-----------------------------------------------------------------------------------------------------------------------------------------------------
Процедура обработчика щелчка по вкладке (ярлыку) на панели задач
procedure TMainForm.PageControl1Change(Sender: TObject);
begin
if PageControl1.TabIndex=i1 then form1.Show;
if PageControl1.TabIndex=i2 then form2.Show; //(Вместо Show пробовал Active... Не помогло...)
end;
Индексы i1, i2, iDBConn объявляются как глобальные переменные.
Вот 100%, что я там что-то накосячил... Если подскажете мне где, буду благодарен
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.