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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Узнать открыты ли всплывающие окна? 
:(
    Опции темы
klyaksa
Дата 10.2.2011, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
В программе может быть открыто модальное окно или диалог (ок, отмена; да, нет, отмена). При срабатывании таймера нужно 1) проверить что открыто, и 2) закрыть (может быть) эти диалоги. Как это можно сделать?
PM MAIL   Вверх
ZBugz
Дата 10.2.2011, 17:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
If окно.showing then то то то 
А закрыть нужныйбаттон.click
PM MAIL   Вверх
klyaksa
Дата 10.2.2011, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
А ShowMessage('ляляля')?
PM MAIL   Вверх
klyaksa
Дата 10.2.2011, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Почти разобрался сам, но...
по таймеру вызывается

Код

      Timer.Enabled := False;

      //закроем диалог      
      h := FindWindow('#32770', 'My');
      if h <> 0 then EndDialog(h, IDNO);

      //закроем модальное окно
      h := FindWindow('TTextViewForm', nil);
      if h <> 0 then 
      SendMessage(h, WM_SYSCOMMAND, SC_Close, 0);

      //Время вышло - показываем модальное окно
      TimeOutForm.ShowTaskOut;


Так вот, если в процедуре поставить exit перед TimeOutForm.ShowTaskOut, то все что нужно закрыть - закрывается, если же продолжить и вывести свое консольное окно, то найденое TTextViewForm почему-то не закрывается.
PM MAIL   Вверх
ZBugz
Дата 11.2.2011, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
Нужен код, я так ничего не понимаю smile 
PM MAIL   Вверх
klyaksa
Дата 11.2.2011, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
По кнопке 1, 2, 3 можно открыть разные виды окон. Таймер должен закрыть!!! любое из них и открыть окно 3. Кнопка 4 запуск таймера еще раз. 
Но зараза не работает как надо....

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer: TTimer;
    Button4: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    x: integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Hi!');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if Application.MessageBox('Hi', 'My', MB_YESNO+MB_DEFBUTTON1+MB_ICONQUESTION) = IDYES
 then Form2.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Timer.Enabled := true;  //стартанем таймер снова
end;

procedure TForm1.TimerTimer(Sender: TObject);
var h: HWND;
begin
  Timer.Enabled := False;
  inc(x);
  Self.Caption := IntToStr(x);

  h := FindWindow('TMessageForm', Nil);
  if h <> 0 then SendMessage(h, WM_SYSCOMMAND, WM_CLOSE, 0);

  //закроем диалог
  h := FindWindow('#32770', 'My');
  if h <> 0 then EndDialog(h, IDNO);

  //закроем модальное окно
  h := FindWindow('TForm2', nil);
  if h <> 0 then SendMessage(h, WM_SYSCOMMAND, SC_Close, 0);

  //Время вышло - показываем модальное окно
  Form3.ShowModal;
end;

end.
PM MAIL   Вверх
ZBugz
Дата 12.2.2011, 09:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
Так, давай еще раз, тебе надо что бы любое окно закрывал таймер, через какое то время, если оно появилось ?
А то или я что то не понимаю или в коде бардак smile 

Это сообщение отредактировал(а) ZBugz - 12.2.2011, 09:52
PM MAIL   Вверх
klyaksa
Дата 12.2.2011, 10:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
У пользователя есть ограниченное время. Он может что-то делать на главной форме (не важно что), в процессе этого ему могут выводится окошки (их имитируют окошки по кнопкам 1, 2, 3). Когда кончится время, остановить таймер и если что-то открыто (форма2, диалог да/нет, ShowMessage) это надо закрыть и вывести окно (форма3) что время истекло.

В данном коде это всегда получается с окном от кнопки2, окно от кнопки3 при наличии Form3.ShowModal; в таймере не срабатывает как надо, без нее скрывается. С окном от кнопки1 сначала получалось, теперь опять что-то запутался. 
PM MAIL   Вверх
ZBugz
Дата 12.2.2011, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
Короче вот смотри.
Я все равно ниче не понял в твоем коде  smile 
Я сделал постоянный таймер, он работает постоянно и проверяет все что открыто. X=3 это типа 3 секунды на раздумие.

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  1.rar 3,33 Kb
PM MAIL   Вверх
klyaksa
Дата 12.2.2011, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Надо не только закрыть, но и показать окно "время вышло" (форма3).
А если это добавить то пример не работает.

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  2.rar 223,79 Kb
PM MAIL   Вверх
ZBugz
Дата 12.2.2011, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
Дык в чем проблема ? Закрывай окно так же, введя другую переменную  smile 

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  1.rar 3,51 Kb
PM MAIL   Вверх
klyaksa
Дата 12.2.2011, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Проблема показана на рис.

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  ______12_3.jpg 80,89 Kb
PM MAIL   Вверх
ZBugz
Дата 12.2.2011, 18:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
На XP работает, на 7-ке нет, проверил...
Ща че нить придумаем. 
PM MAIL   Вверх
ZBugz
Дата 12.2.2011, 18:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 6
Всего: 6
Короче с 
Код

ShowMessage('Hi!');

Косяк в 7-ке. Я его закрыл, только после закрытия, вызывая Form3 и попыткой закрыть идет ошибка. 
Но в твоем случае, да и вообще, юзать ShowMessage вообще бессмысленно. Для этого и есть нормальный MessageBox

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  1.rar 3,60 Kb
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.0510 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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