Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];

Вниз

Как отключить показ программы при нажатии alt+tab   Найти похожие ветки 

 
Duk_777   (2003-11-08 21:31) [0]

Как отключить показ программы при нажатии alt+tab


 
Иван Шихалев   (2003-11-08 23:10) [1]

Поиграть со стилями главного окна (особенно - расширенными), на худой конец - скрыть его.


 
Zew   (2003-11-09 08:47) [2]

Вот так можно
unit Unit1;

interface

uses
Windows, Controls, Forms;

type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
params.ExStyle:= params.exstyle or WS_EX_TOOLWINDOW;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
showwindow (application.handle,sw_hide);
end;

end.


 
Cash   (2003-11-14 23:22) [3]

А я вот взял, да ишлепнул на форму таймер.
Интервал:=1.
А в сабытии OnTimer настучал такую вещь:

keybd_event( VK_MENU, $45, KEYEVENTF_KEYUP, 0);

VK_MENU - это Alt.
KEYEVENTF_KEYUP - означает, что клавиша находится в отпущеном состоянии.
Таким образом я вывел из строя в сочетания клавиш с участием Alt
Понимаю, таймер - громоздко и память хавает. Без таймера этот код можно вписать в событие OnKeyPress или OnKeyDown того контрола, или кучи контролов, у которого будет фокус.


 
DeadMeat   (2003-11-14 23:47) [4]

> Cash © (14.11.03 23:22) [3]
Умно... :)))


 
Cash   (2003-11-15 00:40) [5]

Стараюсь. :)



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.02.02;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.031 c
1-2140
Ландграф Павел
2004-01-18 14:53
2004.02.02
Запись TStringList в TFileStream


11-2053
Denis
2003-05-14 17:38
2004.02.02
KOLScktComp


3-2024
nstur
2004-01-06 10:44
2004.02.02
База данных DB4


1-2189
V-A-V
2004-01-21 07:51
2004.02.02
Определение екзешника


11-2054
Denis
2003-05-13 20:56
2004.02.02
err.dcu





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский