Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 884

/ вопрос решён /

Здравствуйте, эксперты! Как передать Handle не активному окну и закрыть его? пробывал вот так

SetForeGroundWindow(Form2.Handle); 
G := FindWindow ('TForm2', 'Form2');
     If G <> 0 then SendMessage (G, WM_CLOSE, 0, 0) else ShowMessage('Нет такого окна');
не хочет работать

в крации
например
нажал на кнопку создал форму, каждой форме присвоил k=число (k-число integer)
F:=TForm2.Create(Self);
F.Show;

дальше захожу в меню Mainmenu1 нажимаю закрыть форму, создаю еще одну форму с таймером(отчет времени) на этой форме нажимаю Ок, и тут проверяю число если 1 или 2 и т.д. то закрыть form2 ...

casio Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: casio (статус: Посетитель)
Вопрос отправлен: 14 января 2012, 00:06
Состояние вопроса: решён, ответов: 0.


Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 14 января 2012, 19:18; участников в обсуждении: 3.

14 января 2012, 00:15: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Программирование с помощью API модератором Ерёмин А.А.

bugmenot

bugmenot (статус: 3-ий класс), 14 января 2012, 01:25 [#1]:

Цитата (casio):

в крации

Что такое крация?
виконання програми розпочинається з того самого мiсця, де призупинилося.

min@y™

min@y™ (статус: Доктор наук), 14 января 2012, 10:19 [#2]:

Хорош хернёй заниматься! Используй список Screen.Forms: не нужно будет посылать сообщения. Перебрал формы в списке, нашёл нужную, закрыл её методом Close().
Вуаля!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
casio

casio (статус: Посетитель), 14 января 2012, 19:18 [#3]:

min@y™: Вуаля! спасибо большое за подсказку :)

14 января 2012, 19:18: Статус вопроса изменён на решённый (изменил автор вопроса — casio)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:25
Выполнено за 0.02 сек.