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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> full screen mode, перекрывать панель задач в full screen  
:(
    Опции темы
СЭНСЭЙ
Дата 2.10.2017, 05:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет



Код

VideoMode(800,600,32);
Form1.BorderStyle:=bsNone;
Form1.WindowState:=wsMaximized;
Form1.FormStyle := fsStayOnTop;


все равно панель задач вин 10 остается сверху
если alt+tab прокрутить то пропадает

И еще как сделать что бы при нажатии alt+tab возвращало исходный граф режим?
PM MAIL   Вверх
СЭНСЭЙ
Дата 2.10.2017, 19:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет



Ребятки, прошу прощения
нашел как сделать.
Были старые хуки которые убирали фокус с формы. Я это делал для того что бы клавиши перехватывать. Это было до того как стал использовать RegisterHotKey. 
Безумные идеи перехватывать ТАБ. И еще не помню уже какие причины.
Пока Хоткеи не приручил были танцы с бубном.

оставлю тут примеры

Хук перехвата Alt+Tab и сворачивания приложения

http://delphi-kb.blogspot.com.ar/2009/12/m...essing-alt.html

и смена видео режима 
Код

var
swidth, sheight: integer;
.....

function VideoMode(screenWidth, screenHeight: Word; pixelDepth: Byte): Boolean;
var dmScreenSettings: DEVMODE;
begin
  ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
  With dmScreenSettings do begin
    dmSize       := SizeOf(dmScreenSettings);
    dmPelsWidth  := screenWidth;
    dmPelsHeight := screenHeight;
    dmBitsPerPel := pixelDepth;
    dmFields     := DM_PELSWIDTH or
                    DM_PELSHEIGHT or
                    DM_BITSPERPEL;
  end;

  if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) =
      DISP_CHANGE_FAILED) then begin
    Result := False;
    Exit;
  end;

  Result := True;
end;

procedure TForm1.OnRestore(Sender: TObject);
begin
Videomode(800,600,32);
  end;

procedure TForm1.OnMinimize(Sender: TObject);
begin
Videomode(swidth,sheight,32);
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnRestore := OnRestore;
Application.OnMinimize := OnMinimize;

swidth:=Screen.Width;
sheight:=Screen.Height;

VideoMode(800,600,32);
Form1.BorderStyle:=bsNone;
Form1.WindowState:=wsMaximized;
Form1.FormStyle := fsStayOnTop;
Application.BringToFront;

end;
 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1022 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


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

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