Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> MDI 
:(
    Опции темы
sono
Дата 24.5.2008, 00:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 82
Регистрация: 10.1.2008
Где: KHARKOV

Репутация: -1
Всего: -1



Всем доброго времени суток!
Значит работаю с mdi. Проблема в следующем:

- как  реализовать при создании дочерних форм их список например  как в стандартном примере 
c:\Program Files\Borland\Delphi6\Objrepos\MdiApp\   -- там короче в меню window в качестве новых menuitem-ов добавляются  созданные нами дочерние формы, при клике по item соответствующая дочерняя форма получает фокус. В модулях даного проекта  этого я не нашёл?

И ещё задача к примеру я создаю дочерние формы по экземпляру формы tchild которая содержит кнопку button. Соответственно у данного button есть обработчик onclick. 
Так создаём в программе  несколько форм и при этом в обработчике события кнопки мне нужно определять в какой из дочерних форм была нажата кнопк, т.к. от этого будут зависеть данные которые я буду использовать в обработчике.

Помогите разобраться...
PM MAIL   Вверх
Rrader
  Дата 24.5.2008, 04:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191



1)У формы есть свойство WindowMenu. Там указывается меню для MDI форм. Из справки:
Цитата

The Window menu also lists (at the bottom) the child windows that are currently open in the application. When the user selects one of these windows from the menu, the window becomes the active window in the application. 

Вот как это делается:
Код

        if (FormStyle = fsMDIForm) and
           (WindowMenu = Item) and
           (SendMessage(ClientHandle, WM_MDIREFRESHMENU, 0, 0) <> 0) then
          DrawMenuBar(Handle);

2)
Код

Procedure TMDIChild.Button1Click(Sender: TObject);
Begin
  If (Sender Is TButton) Then
    ShowMessage(GetParentForm(Sender As TButton).Caption);
End;


Это сообщение отредактировал(а) Rrader - 24.5.2008, 05:08


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
sono
Дата 24.5.2008, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 82
Регистрация: 10.1.2008
Где: KHARKOV

Репутация: -1
Всего: -1



Коротко, лаконично и с примером!  smile 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0997 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.