Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];

Вниз

Список открытых окон в меню (MDI)   Найти похожие ветки 

 
Alexey Leonchik   (2004-06-30 04:14) [0]

Здравствуйте уважаемые!

Подскажите пожалуйста, как сделать в основном меню, в меню [Окна] список открытых окон приложения. При помощи мастера получается, а как это сделать руками, на голой форме?

С уважением Алексей Леончик


 
ЮЮ ©   (2004-06-30 06:39) [1]

MainForm.WindowMenu := <MenuItem [Окна]>


 
Alexey Leonchik   (2004-06-30 07:09) [2]

Извините пожалуйста, так я уже пробовал :) Не работает. Список окон не создается. А можно поподробнее ...

С уважением Алексей Леончик


 
Defunct ©   (2004-06-30 08:35) [3]

procedure TForm1.Button1Click(Sender: TObject);
Var MenuItem: TMenuItem;
begin
 MenuItem := TMenuItem.Create(MainMenu1);

 With MenuItem Do
 Begin
   Caption := Button1.Caption;
   ... назначение событий, имени и т.п. если надо
 End;
 File1.Add(MenuItem);
end;


File1 здесь - имя пункта главного меню, где будут располагаться формируемы пункты списка окон или чего-то там еще.


 
Игорь Шевченко ©   (2004-06-30 10:25) [4]

Alexey Leonchik   (30.06.04 07:09)

Вставь в этот пункт меню команды Tile, Cascade...Список окон, AFAIK, не будет создаваться, если у этого меню нет ни одного элеиента.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.036 c
1-1088510781
Alex_2004
2004-06-29 16:06
2004.07.11
Ориентация страницы в MS Word


14-1087535548
MBo
2004-06-18 09:12
2004.07.11
Пятничная разминка. Простенькие задачки.


14-1087819676
Undert
2004-06-21 16:07
2004.07.11
Тупенький вопрос по JS


11-1075550627
ZiloNit
2004-01-31 15:03
2004.07.11
У меня проблемы с XPStyle.


3-1087415555
cardinall
2004-06-16 23:52
2004.07.11
Как программно объеденить две ячейки в Excel?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский