Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.11.2011, 03:39
bender4219 bender4219 вне форума
Прохожий
 
Регистрация: 13.11.2011
Сообщения: 8
Репутация: -2757
Вопрос Игра

Доброе время суток!
Подскажите как сделать меню(типо как в программе Steam)
Ссылка http://i042.radikal.ru/1111/bb/7e226c201c95.jpg
P.s За рание спосибо.
Ответить с цитированием
  #2  
Старый 13.11.2011, 03:46
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

И где там меню?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 13.11.2011, 17:10
bender4219 bender4219 вне форума
Прохожий
 
Регистрация: 13.11.2011
Сообщения: 8
Репутация: -2757
По умолчанию

поверх игры появляется меню программы
Ответить с цитированием
  #4  
Старый 15.11.2011, 23:50
U.B.M. U.B.M. вне форума
Новичок
 
Регистрация: 06.10.2011
Сообщения: 94
Версия Delphi: Delphi 7
Репутация: 13
По умолчанию

Если нужно вывести окошки поверх игрового окна, то для них
Код:
1
Form1.FormStyle := fsStayonTop;
Ответить с цитированием
  #5  
Старый 17.11.2011, 03:27
bender4219 bender4219 вне форума
Прохожий
 
Регистрация: 13.11.2011
Сообщения: 8
Репутация: -2757
Вопрос

Цитата:
Сообщение от U.B.M.
Если нужно вывести окошки поверх игрового окна, то для них
Код:
1
Form1.FormStyle := fsStayonTop;

Можно поподробней пожалуйста
Ответить с цитированием
  #6  
Старый 17.11.2011, 03:59
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Создаёшь дополнительную форму, выставляешь BorderStyle:=bsNone, указанный выше FormStyle и вызываешь командой Show (не ShowModal!).
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #7  
Старый 17.11.2011, 09:50
bender4219 bender4219 вне форума
Прохожий
 
Регистрация: 13.11.2011
Сообщения: 8
Репутация: -2757
По умолчанию

Цитата:
Сообщение от angvelem
Создаёшь дополнительную форму, выставляешь BorderStyle:=bsNone, указанный выше FormStyle и вызываешь командой Show (не ShowModal!).
Уважаемый можите привести исходник чтоб при нажатие на Num9 открывалось данное меню
Ответить с цитированием
  #8  
Старый 17.11.2011, 11:27
Аватар для Amgsys HQ
Amgsys HQ Amgsys HQ вне форума
Начинающий
 
Регистрация: 11.11.2011
Адрес: Загрузочный сектор
Сообщения: 115
Версия Delphi: 7, XE
Репутация: 538
По умолчанию

Пишешь этот код в событие OnTimer таймера, который кидаешь на форму, с интервалом в 10:

Код:
1
2
3
4
5
6
7
8
9
10
11
procedure TMyForm.ShowTimerOnTimer(Sender: TObject);
begin
  if GetAsyncKeyState($69) > 0 then // Проверка, нажата ли Num9.
  begin
    { Выполняешь какие-то действия }
    if not MyForm.Visible then
      MyForm.Show // Показываешь окно
    else
      MyForm.Hide; // Скрываешь окно
  end;
end
__________________
Работа пpогpаммиста и шамана имеет очень много общего:
оба боpмочyт непонятные слова, совеpшают непонятные действия и не могyт объяснить, как оно pаботает.
Ответить с цитированием
  #9  
Старый 17.11.2011, 11:41
bender4219 bender4219 вне форума
Прохожий
 
Регистрация: 13.11.2011
Сообщения: 8
Репутация: -2757
По умолчанию

Цитата:
Сообщение от Amgsys HQ
Пишешь этот код в событие OnTimer таймера, который кидаешь на форму, с интервалом в 10:

Код:
1
2
3
4
5
6
7
8
9
10
11
procedure TMyForm.ShowTimerOnTimer(Sender: TObject);
begin
  if GetAsyncKeyState($69) > 0 then // Проверка, нажата ли Num9.
  begin
    { Выполняешь какие-то действия }
    if not MyForm.Visible then
      MyForm.Show // Показываешь окно
    else
      MyForm.Hide; // Скрываешь окно
  end;
end
Спосибо, но не работает=\
Ответить с цитированием
  #10  
Старый 17.11.2011, 16:46
Аватар для Amgsys HQ
Amgsys HQ Amgsys HQ вне форума
Начинающий
 
Регистрация: 11.11.2011
Адрес: Загрузочный сектор
Сообщения: 115
Версия Delphi: 7, XE
Репутация: 538
По умолчанию

Цитата:
Сообщение от bender4219
Спосибо, но не работает=\
Странно, но у меня данный код работает.
NumLock включен? Попробуй заменить
Код:
1
GetAsyncKeyState($69) > 0
на
Код:
1
GetAsyncKeyState(VK_NUMPAD9) <> 0
__________________
Работа пpогpаммиста и шамана имеет очень много общего:
оба боpмочyт непонятные слова, совеpшают непонятные действия и не могyт объяснить, как оно pаботает.
Ответить с цитированием
  #11  
Старый 17.11.2011, 21:37
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от bender4219
Спосибо, но не работает=\
Может для начала изучить немного Дельфи?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #12  
Старый 18.11.2011, 05:12
bender4219 bender4219 вне форума
Прохожий
 
Регистрация: 13.11.2011
Сообщения: 8
Репутация: -2757
По умолчанию

Цитата:
Сообщение от Amgsys HQ
Странно, но у меня данный код работает.
NumLock включен? Попробуй заменить
Код:
1
GetAsyncKeyState($69) > 0
на
Код:
1
GetAsyncKeyState(VK_NUMPAD9) <> 0
Спасибо данный код помог, но программа разворачивается не в окне игры
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:20.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025