[bender4219]

Доброе время суток!
Подскажите как сделать меню(типо как в программе Steam)
Ссылка http://i042.radikal.ru/1111/bb/7e226c201c95.jpg
P.s За рание спосибо.

[angvelem]

И где там меню?

[bender4219]

поверх игры появляется меню программы

[U.B.M.]

Если нужно вывести окошки поверх игрового окна, то для них

Код:

Form1.FormStyle := fsStayonTop;

[bender4219]

Сообщение от U.B.M.

Если нужно вывести окошки поверх игрового окна, то для них

Код:

Form1.FormStyle := fsStayonTop;

Можно поподробней пожалуйста

[angvelem]

Создаёшь дополнительную форму, выставляешь BorderStyle:=bsNone, указанный выше FormStyle и вызываешь командой Show (не ShowModal!).

[bender4219]

Сообщение от angvelem

Создаёшь дополнительную форму, выставляешь BorderStyle:=bsNone, указанный выше FormStyle и вызываешь командой Show (не ShowModal!).

Уважаемый можите привести исходник чтоб при нажатие на Num9 открывалось данное меню

[Amgsys HQ]

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

Код:

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

[bender4219]

Сообщение от Amgsys HQ

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

Код:

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

Спосибо, но не работает=\

[Amgsys HQ]

Сообщение от bender4219

Спосибо, но не работает=\

Странно, но у меня данный код работает.
NumLock включен? Попробуй заменить

Код:

GetAsyncKeyState($69) > 0

на

Код:

GetAsyncKeyState(VK_NUMPAD9) <> 0

[angvelem]

Сообщение от bender4219

Спосибо, но не работает=\

Может для начала изучить немного Дельфи?

[bender4219]

Сообщение от Amgsys HQ

Странно, но у меня данный код работает.
NumLock включен? Попробуй заменить

Код:

GetAsyncKeyState($69) > 0

на

Код:

GetAsyncKeyState(VK_NUMPAD9) <> 0

Спасибо данный код помог, но программа разворачивается не в окне игры