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

Вниз

Работа с MSWord   Найти похожие ветки 

 
Bers01   (2004-01-20 11:49) [0]

Добрый день УВАЖАЕМЫЕ МАСТЕРА!
Поскажите кто знает:
Есть var WA:TWordApplication;
В нем открыто много документов ( WA.Documents.Add(...);).
Как сделать активным j-ый документ т.е. чтобы стало активным окно c WA.Documents.Items(j);

С Уважением, Андрей.


 
Семен Сорокин   (2004-01-20 11:54) [1]

Activate?


 
Bers01   (2004-01-20 12:02) [2]

Activate; делает j-тый документ активным, но если пользователь до этого переключился на другой документ, то верхним(отображаемым документом) по прежнему остается тот, который выбрал пользователь. Как Быть? Как j-ый отобразить поверх остальных?

С Уважением, Андрей.


 
Семен Сорокин   (2004-01-20 12:14) [3]

посмотри в Helpe по поводу ActiveWindow


 
Yr2   (2004-01-20 12:48) [4]

1. Уточните, с каким Word_ом Вы работаете. В Word97 и в Word2000 это будет делаться по-разному. Так как большинство уже перешло на Word2000/2002, то описываю как я это делал. Не могу точно сам объяснить некоторые майкрософтовские заморочки, но эмпирически был получен метод, который надёжно работает практически всегда. Проверьте на примере трёх кнопок. Вот обработчик первой:

Procedure TForm1.Button1Click(Sender: TObject);
VAR Index : OleVariant;

begin
Index:=1;
WA.Documents.Item(Index).Activate; { активизировать Word-документ (1!)}
WA.Documents.Item(Index).ActiveWindow.Activate; { активизировать главное Word-окно (2!)}
WA.Activate; { активизировать Word (курсор) (3!)}
{ порядок важен! иначе чего-нибудь не сработает }
end;

Внимание: переключение между документами (их активизация) будет производиться, если все они уже открыты и видимы на экране (пусть частично или полностью перекрыты). Но, если они полностью минимизированы, то возникает проблема:

2. Начиная с Win2000 активизация закрытого докмента не раскрывает этот документ, а ТОЛЬКО активизирует кнопку на панели задач. Я долго боролся с этим явлением, но красивого и оригинального решения так и не нашел. хотя сделал :)


 
Bers01   (2004-01-20 13:10) [5]

Да Word именно 2000
Спасибо - заработало!



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

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

Наверх





Память: 0.45 MB
Время: 0.01 c
3-2044
Владий
2004-01-05 16:43
2004.02.02
Как 3 запроса с одинаковой структурой совместить в 1


14-2292
Senator
2004-01-12 16:29
2004.02.02
фича


6-2252
user
2003-11-27 07:46
2004.02.02
TidTCPServer TidTCPClient


3-1977
jocko
2004-01-08 13:50
2004.02.02
Соединение с сервером ADO


1-2203
AllDer
2004-01-20 17:08
2004.02.02
Программно нажать TabSheet





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский