Навигация
Поддержать материально
Steam Greenlight

Логотипы
Медальки
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Темы форума
189 - Race V
Вчера, 06:42
 VoroneTZ
Разрешите представит…
6.07.2025
 BlitzID
189 - ?
2.07.2025
 BlitzID
В каком банке открыт…
29.06.2025
 Dan
WoL
23.06.2025
 PapkaI_Igrodel
Привет выжившие
23.06.2025
 PapkaI_Igrodel
MarketGameV4
13.06.2025
 IAmNotARobot
188 - RPG
17.02.2025
 Mefistofel
Galactic Showdown -…
30.01.2025
 Darthman
188 - ?
1.01.2025
 Mefistofel
Сейчас на сайте
Гостей: 2
На сайте нет зарегистрированных пользователей

Пользователей: 1,795
новичок: BlitzID
Обсуждение «Головоломка для любителей VCL и WinAPI»
Darthman
Древний организм
Avatar пользователя

Опубликовано 07.09.2006 17:46 (19 лет назад)    #
Я уже поломал голову над этой задачкой, теперь ваша очередь.

Есть в одном юните (для простоты) компонент (класс). Внутри класса создается средствами WinAPI окно. Внимание вопрос. Как изменить любое свойство или вызвать любой метод из класса при получении созданным окном сообщения (например WMKeyDown).
Race V:Не участвую.
beisik
Avatar пользователя

Опубликовано 07.09.2006 17:53 (19 лет назад)    #
while PeekMessage(msg, 0, 0, 0, PM_REMOVE) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
if msg = WMKeyDown then
begin
...
end;
Это???
Race V:Не участвую.
Darthman
Древний организм
Avatar пользователя

Опубликовано 07.09.2006 18:12 (19 лет назад)    #
Дополню задачу, чтобы понятно было. Класс еще не создан. В этом юните только описание класса идет, а переменных этого класса может быть сколько угодно.
Race V:Не участвую.
Piroxyline
Avatar пользователя

Опубликовано 08.09.2006 11:20 (19 лет назад)    #
Да пожалуйста - можно сделать динамический массив из записи следующего содержания:
Msg: Cardinal;
Event: Pointer;
При поступлении сообщения проверяются все элементы, где Msg совпал с сообщением - выполняется процедура Event
Race V:Не участвую.
Darthman
Древний организм
Avatar пользователя

Опубликовано 08.09.2006 13:50 (19 лет назад)    #
Не вижу тут решения.
Race V:Не участвую.
beisik
Avatar пользователя

Опубликовано 08.09.2006 19:59 (19 лет назад)    #
Не вижу задания! 8) Точнее не врубаю в него...
Race V:Не участвую.
Darthman
Древний организм
Avatar пользователя

Опубликовано 10.09.2006 20:38 (19 лет назад)    #
помоему я адекватно описал. Из класса надо создать окно. Элементов класса может быть много. При этом окно должно уметь управлять классом, который его создал.
Race V:Не участвую.
Piroxyline
Avatar пользователя

Опубликовано 13.09.2006 17:15 (19 лет назад)    #
Вот! Окну посылаются сообщения, оно смотрит список действий, если попадается какое-либо сообщение из присутствующих в этом списке, вызывается действие. Можно сделать практически все что угодно.
Race V:Не участвую.
Soulghai
Avatar пользователя

Опубликовано 14.09.2006 05:39 (19 лет назад)    #
Piroxyline ты думаешь Darthman этого не знал ;).
Суть его вопроса, на сколько я понял, это отвязаться от окна. Т.е. нужно сделать так, что какие окна не подавай в WndProc, а он всё-равно нормально работал. ( это один из вариантов. )
Вобщем суть в том, что нужно сделать нормальную обработку сообщений окна, не имея в наличии самого окна =).
Race V:Не участвую.
Piroxyline
Avatar пользователя

Опубликовано 14.09.2006 12:40 (19 лет назад)    #
Ааа! Дык ведь в WndProc подается хэндл окна, нужно сравнить его с имеющимися. Что-то типа такого:
var
CurrWnd: PWindow;
i: Integer;
...
CurrWindow := nil;
for i := 0 to Length(AllWindows) - 1 do begin
if h_Wnd = AllWindows[i].Handle then begin
CurrWnd := @AllWindows[i];
Break;
end;
end;
if CurrWnd = nil then begin
Result := <чего-то-там, скорее всего по дефолту>
Exit;
end;
а далее идет обработка этого сообщения для CurrWindow^
Race V:Не участвую.
Feo
Avatar пользователя

Опубликовано 14.09.2006 16:26 (19 лет назад)    #
сообщения обрабатываются внутри класса? или внешне? по сути, класс это указатель, может этим пользоваться? или изменять свойства, етк тоже нужно внутри класса?

редакция от Feo, 14.09.2006 16:27

Race V:Не участвую.
Darthman
Древний организм
Avatar пользователя

Опубликовано 15.09.2006 09:39 (19 лет назад)    #
Соул прав. Меня в данном вопросе лечить смысла не имеет. Задачка просто не тривиальная, и если есть желание - решите хотябы частично. Я Свою задачу выполнил скрестил ВЦЛ и ВинАПИ. В моем случае это было необходимо для создания DropDown компонента, аля комбобокс, только без возможности ввода текста. :)
Race V:Не участвую.
Darthman
Древний организм
Avatar пользователя

Опубликовано 15.09.2006 09:41 (19 лет назад)    #
И надо сказать получилось очень даже здорово! Кто видел - уже оценили.
Race V:Не участвую.
Shirson
Avatar пользователя

Опубликовано 15.09.2006 09:54 (19 лет назад)    #
Двропдаун без вывода текста? Повидимому экшин-меню ;)
Race V:Не участвую.
Darthman
Древний организм
Avatar пользователя

Опубликовано 15.09.2006 15:18 (19 лет назад)    #
не надо только вод подколок, все серьезно сделано ;) И для серьезных целей.
Race V:Не участвую.
Shirson
Avatar пользователя

Опубликовано 18.09.2006 07:35 (19 лет назад)    #
Да какие тут подколки... Просто догадки :)
Race V:Не участвую.
Darthman
Древний организм
Avatar пользователя

Опубликовано 18.09.2006 21:52 (19 лет назад)    #
покажу если интересно.
Race V:Не участвую.
Shirson
Avatar пользователя

Опубликовано 19.09.2006 06:56 (19 лет назад)    #
Конечно интересно!
Race V:Не участвую.
Darthman
Древний организм
Avatar пользователя

Опубликовано 22.09.2006 11:41 (19 лет назад)    #
http://darthman.com/temp/be3u.rar ( 300Kb )

редакция от Darthman, 22.09.2006 11:42

Race V:Не участвую.
capkoh
Avatar пользователя

Опубликовано 23.09.2006 16:56 (19 лет назад)    #
Я тут сбоку, но у меня, как у потенциального юзера есть несколько замечаний:
1. Fade-эффект слишком медленный. Либо убрать его вовсе.
2. Для этого DropDown создается отдельное окно в панеди задач. Этого быть не должно.
3. Повторный клик по исходному окну при открытом DropDown должно свернуть DropDown.
4. Ну и управление с клавиатуры сделать не мешает.
Race V:Не участвую.
Перейти на форум:
Конкурсы
Открытые конкурсы:
Race V
04д 09ч 07м 41с

Старт: 5 июля 2025г.
Финиш: 28 июля 2025г.

Участники: 6
Недавние конкурсы:
 188 - RPG XIII
 187 - Bullet Heaven
 186 - Strategy
 185 - RPG XII
 184 - Arcade II
 Все конкурсы
Случайная игра
Мини-чат
Вам необходимо залогиниться.

Архив чата

27,348,472 уникальных посетителей

Создано на базе русской версии PHP-Fusion copyright © 2003-2006 by Nick Jones.
Released as free software under the terms of the GNU/GPL license.