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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вы знали о существовании? функция: MessageBoxTimeOut 
:(
    Опции темы
 
Знали?
Да [ 10 ]  [19.61%]
Нет [ 41 ]  [80.39%]
Всего проголосовавших: 51
В этом опросе возможен один вариант ответа
Гости не могут голосовать 
Yanis
Дата 29.7.2007, 20:46 (ссылка) | (голосов:8) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Только что узнал про такую функцию smile
Решил поделиться и спросить заодно.
Код
function MessageBoxTimeOut(
      hWnd: HWND; lpText: PChar; lpCaption: PChar;
      uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
      external user32 name 'MessageBoxTimeoutA';

function MessageBoxTimeOutA(
      hWnd: HWND; lpText: PChar; lpCaption: PChar;
      uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
      external user32 name 'MessageBoxTimeoutA';

function MessageBoxTimeOutW(
      hWnd: HWND; lpText: PWideChar; lpCaption: PWideChar;
      uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;
      external user32 name 'MessageBoxTimeoutW';


Это сообщение отредактировал(а) Yanis - 29.7.2007, 20:47


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
W4FhLF
Дата 29.7.2007, 20:55 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


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

Репутация: 6
Всего: 121
Не знал. Оказывается из числа Undocumented.


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Yanis
Дата 29.7.2007, 20:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Конечно область применения данной функции довольно узкая, но всё же. 
Юзаем там:
Код
var
  iResult: Integer;
  iFlags: Integer;
begin
  iFlags  := MB_OK or MB_SETFOREGROUND or MB_SYSTEMMODAL or MB_ICONINFORMATION;
  iResult := MessageBoxTimeout(
   Application.Handle,
   'Test a timeout of 2 seconds.',
   'MessageBoxTimeout Test', iFlags, 0, 2000);
end;



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Sanchezzz
Дата 29.7.2007, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 5
Всего: 60
очень удобная функция я до этого пользовался простым MessageBox.
очень полезно для временного вывода сообщения..
Yanis Спасибо!!!

думаю не обезателен пример:
Код

MessageBoxTimeOut(application.Handle,
pChar(Edit1.Text),'Message',0,0,2000);




--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
former
Дата 29.7.2007, 21:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Yanis, спасибо за информацию.


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
ivan219
  Дата 29.7.2007, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12
Yanis,  smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
dumb
Дата 30.7.2007, 02:33 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


sceloglauxalbifacies
****


Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 13
Всего: 158
видел ее неоднократно в экспорте user32.dll - даже хотел ее "привьючить на работу", но проверив ее совместимость "в зад", отложил в дальние закрома - в w2k этой функции нет, а ведь она(2k) пока еще трепыхается...
PM MAIL   Вверх
Yanis
Дата 30.7.2007, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
dumb
Что касается меня, то я врят ли буду её использовать. 
Но это не умалило моего интереса к функции, когда узнал о ней smile

Это сообщение отредактировал(а) Yanis - 30.7.2007, 18:07


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Bose
  Дата 30.7.2007, 18:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51
Интересная функция. Но я её использовать не буду. Сомневаюсь что пользователь оценит юмор, когда стандартные диалоги вдруг начнут сами пропадать smile  

В этом плане мне больше нравится аналогичная функциональность подсмотренная в разных программах(на память приходит только BitComet), когда на default'ной кнопке отсчитывается время оставшееся до авто-закрытия.


--------------------
Лучшее о Delphi за 2013 год. Подборка ссылок.
PM MAIL WWW Skype   Вверх
Yanis
Дата 30.7.2007, 18:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Да, конечно пользователь будет в шоке smile
Наверное имеет место использовать такие сообщения в программах расчитанных на длительное выполнение. На серверах, например. Т.е. что бы не приостанавливать работу потока, который показывает MessageBox, допустим выводить его на несколько минут. Не прочитали, значит некогда. Значит в логи потом глянут…

П. С. У Download Master ещё такие кнопки.

Это сообщение отредактировал(а) Yanis - 30.7.2007, 18:37


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
ASGDeveloper
Дата 1.8.2007, 21:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


developer
**


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

Репутация: 1
Всего: 1
Знал. Когда писал крякмикс, хотел усложнить поиск функции показывающей наг. Стандартный мессаджбокс не катил, поэтому посмотрел кто там в стеке ниже MessageBoxW.
PM MAIL   Вверх
avosi
Дата 13.3.2008, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
спасибо большое автору, а то думал что глюки у меня и нет вообще такой функции под делфи хотя сам пользовался её года полтора назад
PM MAIL   Вверх
Poseidon
Дата 13.3.2008, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Знал, но не пользовался. А вот откуда знал уже и не припомню. Мож как Янис, наковырял где-то  smile 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
THandle
Дата 13.3.2008, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372
Цитата(Poseidon @  13.3.2008,  13:29 Найти цитируемый пост)
Знал, но не пользовался. А вот откуда знал уже и не припомню. Мож как Янис, наковырял где-то

Полностью аналогично. smile 
PM   Вверх
Olegan
Дата 13.3.2008, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Крутой сисадмин
**


Профиль
Группа: Завсегдатай
Сообщений: 752
Регистрация: 15.5.2007

Репутация: нет
Всего: 105
Не знал! smile 
Спасибо, может когда пригодиться безделушка. smile 


--------------------
Цитата(Mayk @  18.6.2008,  14:29 Найти цитируемый пост)
/me объявляет Olegan врагом народа

Цитата(gta4kv @  20.6.2008,  22:01 Найти цитируемый пост)
/me объявляет Olegan врагом народа во второй раз

Цитата(localhost @  15.6.2009,  08:45 Найти цитируемый пост)
/me объявляет Olegan врагом народа в третий раз
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.0620 ]   [ Использовано запросов: 23 ]   [ GZIP включён ]


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

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