Базы данныхИнтернетКомпьютерыОперационные системыПрограммированиеСетиСвязьРазное
Поиск по сайту:
Подпишись на рассылку:

Назад в раздел

Delphi Действия с посторонними окнами: Перемещение, изменение размеров, скрытие...

FileArea.co.il Delphi Действия с посторонними окнами: Перемещение, изменение размеров, скрытие...
ПрограммыЖелезоДрайверыХостингЭнциклопедия рекламы

Delphi Действия с посторонними окнами: Перемещение, изменение размеров, скрытие...

Как "словить" окно? Под словом "словить" я имею ввиду то, как обнаружить наличие окна (любого окна) среди других окон. Функция "ловли окна" очень часто используется в том случае если вам необходимо совершить над ним (окном) какое-нибудь действие: закрыть, переместить, спрятать, изменить размеры и т.д. Еще раз скажу, что все эти действия будут совершаться над "чужими" окноми, т.е. не над теми которые ва разрабатываете, а над окнами других приложений. Итак вы уже поняли ( я надеюсь ) для чего нужно "словить" окно. Ниже представлен фрагмент кода, позволяющий определить наличие  окна в системе:

if findwindow(nil, '1.txt - Блокнот') <>0 then showmessage ('Окно присутствует');

Если вы поместите эту строчку в процедуру обработки события нажатия на кнопку (или в другое место ),запустите программу и нажмете на кнопку, ваша программа выдаст сообщение "Окно присутствует" если вы перед этим  запустили блокнот и сохранили документ под названием 1.txt Иными словами программа смотрит есть ли окно с таким заголовком какой вы указали (он выделен вот таким цветом) и если оно есть - выдает сообщение, в противном же случае ничего не произойдет.

Теперь когда, вы знаете как использовать функцию ловли окна, попробуем передвинуть его:

//Поместите этот код в процедуру обработки события нажатия на кнопку

if findwindow(nil, '1.txt - Блокнот') <>0 then
SetWindowPos(findwindow(nil,'1.txt - Блокнот'),HWND_BOTTOM,1,1,20,20,SWP_nosize);
//--------------------------------------------------------------------------------

Запустите Блокноти сохраните пустой(или не пустой) документ под именем 1.txt (Обратите внимание, что заголовок окна будет 1.txt - Блокнот) Теперь запустите программу и нажмите на кнопку. Если все сделано правильно, то окно блокнота передвинится в левый верхний угол экрана. Теперь давайте разберем, как вы это сделали.

Первая строчка - функция "ловли" окна. Она проверяет есть ли окно с таким заголовком. Если есть, то выполняется следующая (вторая) строчка:

SetWindowPos(findwindow(nil,'1.txt - Блокнот'),HWND_BOTTOM,1,1,20,20,SWP_nosize);
Где :

первый параметр - заголовок окна, с которым надо что-либо сделать ( в данном случае - передвинуть). Заголовок передается функцией "ловли" окна

          findwindow(nil,'1.txt - Блокнот')   , где 1.txt - Блокнот  заголовок окна

Второй параметр - положение окно ( т.е. его Z-расположение ) он нам сейчас не нужен. Просто считайте, что он должен быть HWND_BOTTOM

Третий параметр - координыты окна по "Оси X"   в пикселах.

Четвертый параметр - координыты окна по "Оси Y"  в пикселах

(т.е. этими координмтами вы указываете куда двигать окно).

Пятый - размер окна по горизонтали

Шестой - размер окна по вертикали

И, наконец, седьмой параметр, он имеет несколько значений. Вот основные из них:

SWP_HIDEWINDOW - после проделаных действий над окном ( перемещением и изменением размера ) окно прячется

SWP_NOSIZE - если указан этот параметр, то 5й и 6й параметры учитываться не будут, т.е. окно менять размер не будет (этот параметр указан в нашем примере )

SWP_NOMOVE - если указан этот параметр, то 3й и 4й параметры учитываться не будут, т.е. окно не будет перемещаться.

SWP_SHOWWINDOW - после проделаных действий над окном ( перемещением и изменением размера ) окно будет показано ( работает только если окно было спрятано)

 

Теперь можно и текст изменить... Вот, например, есть у вас какое-нибудь окно, допустим заголовок у него все тот же - 1.txt - Блокнот. Как же из своей программы поменять заголовок у этого окна? А очень просто:

//Поместите этот код в процедуру обработки события нажатия на кнопку

            setwindowtext (findwindow(nil,'1.txt - Блокнот'),'Окно By Vasya Pupkin') 

//---------------------------------------------------------------------------------

Запустите программу, нажмите на кнопку и...о чудо - окно названо вашим именем :-)

Функция setwindowtext имеет 2 параметра :

Первый - заголовок окна, у которого будем менять заголовок. (Простите за каламбур). Он определяется через функцию "ловли" окна:

                 findwindow(nil,'1.txt - Блокнот') , где 1.txt - Блокнот и есть тот самый (начальный)  заголовок окна

Второй - новый заголовок (типа String)

 

Есть еще одна интересная функция, которая может вам пригодиться. Это - Showwindow.   Используя ее вы сможете прятать ( и, естественно, показавать обратно) окна. Использование этой функции еще легче, чем использование предыдущих:

                 Showwindow(findwindow(nil,'1.txt - Блокнот'),sw_hide);

После выполнения программы окно "1.txt - Блокнот" будет спрятано (но не закрыто!). У этой функции тоже 2 параметра:

Первый - заголовок окна. Он определяется через функцию "ловли" окна:

                 findwindow(nil,'1.txt - Блокнот') , где 1.txt - Блокнот  заголовок окна

Второй - указания, что делать:           

 

SW_HIDE    -Прятать окно

SW_MAXIMIZE     -Максимизировать окно

SW_MINIMIZE    -Минимизировать окно

SW_SHOW   -показать окно (Его надо вызывать если вы хотите показать уже спрятанное окно)

Еще один способ передачи комманд окнам - это использование функции Postmessage.   Например, чтобы закрыть окно с заголовком "1.txt - Блокнот" вставьте этот код в процедуру обработки события нажатия на кнопку:

              postmessage(findwindow(nil,'1.txt - Блокнот'), wm_quit,0,0);

Если у вас было запущено окно с заголовком 1.txt - Блокнот, то оно закроется.

Postmessage имеет несколько параметров, и в различных случаях они разные. Вот некий шаблон использования Postmessage:

               postmessage( findwindow(nil,'заголовок окна'), wm_команда, парам3, парам4);

В первом параметре - findwindow(nil,'заголовок окна') вы передаете заголовок окна.

Второй пареметр - комманда, указывающая какое действие должно совершиться над окном ( в данном примере эта комманда - WM_QUIT, она закрывает окно).  Все эти комманды начинаются на WM_ (wm_size, wm_quit, и т.д.)

Третий и четвертый параметры(парам3 и парам4) - это параметры wm_комманды. Чтобы получить сведения о этих параметрах( да и о самих wm_коммандах) откройте справку Delphi (ПУСК=>Программы=> Borland Delphi => HELP=> MS SDK Help Files=> Win32 Programmer's Reference) откройте вкладку "Указатель" и наберите WM_   и вы увидете целый список этих комманд. Если вы хотите узнать параметры для данной wm_комманды, откройте справку по этой wm_комманде и там вы увидете, какие должны быть параметры.

Винокуров Даниил, 2000 Использование статьи возможно
только с согласия автора


  • Главная
  • Новости
  • Новинки
  • Скрипты
  • Форум
  • Ссылки
  • О сайте




  • Emanual.ru – это сайт, посвящённый всем значимым событиям в IT-индустрии: новейшие разработки, уникальные методы и горячие новости! Тонны информации, полезной как для обычных пользователей, так и для самых продвинутых программистов! Интересные обсуждения на актуальные темы и огромная аудитория, которая может быть интересна широкому кругу рекламодателей. У нас вы узнаете всё о компьютерах, базах данных, операционных системах, сетях, инфраструктурах, связях и программированию на популярных языках!
     Copyright © 2001-2024
    Реклама на сайте