Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

поверх всех окон   Найти похожие ветки 

 
Grinder ©   (2004-02-02 13:49) [0]

мастера, может кто подскажет, как для неглавного окна сделать так, чтобы в системе оно было поверх всех?


 
Игорь Шевченко ©   (2004-02-02 14:06) [1]

Parent"ом ему назначить HWND_Desktop и SetWindowPos (YourHandle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

Окно должно иметь стиль WS_POPUP


 
grinder ©   (2004-02-02 18:58) [2]

а вызывать его что-ли по таймеру?
Я написал такую процедурку

// Окно поверъ других
procedure OnTop(Form: Thandle; const ShowOnTop: Boolean);
var
 Where: HWnd;
begin
 if ShowOnTop then begin
   Where := HWND_TOPMOST;
   SetParent(form, HWND_Desktop);
 end
 else
   Where := HWND_NOTOPMOST;
 SetWindowPos(Form, Where, 0, 0, 0, 0,
   SWP_NOACTIVATE or SWP_NOMOVE or
   SWP_NOSIZE or SWP_NOSENDCHANGING);
   BringWindowToTop(Where);
end;

но как только создаю ещё одно окно, то это свойство приходится снова вызывать.


 
DVM ©   (2004-02-02 19:05) [3]


> но как только создаю ещё одно окно, то это свойство приходится
> снова вызывать.

По таймеру, по таймеру. Причем выше будет тот, чей таймер чаще. А еще выше будут игры под DirectX.

А как ты думаешь, что будет если запустить две копии твой программы? :)


 
Grinder ©   (2004-02-03 00:20) [4]

2 копии не запустешь. Нельзя. А по таймеру моргание идёт нехорошее. Вот что плохо. Пробовал на Application.OnIdle. Тоже.



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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.042 c
8-1071565731
Mad Devil
2003-12-16 12:08
2004.04.11
Наложение изображенией


1-1082371273
Oleon
2004-04-19 14:41
2004.04.11
Ошибки при сохранении в Excel.


3-1079084140
Nikolai_S
2004-03-12 12:35
2004.04.11
Добавление полей типа fkCalculated к открытой TADOQuery


14-1082357165
MalkoLinge
2004-04-19 10:46
2004.04.11
Выжившие Есть ? После Встречи в Реале


4-1075891076
RDen
2004-02-04 13:37
2004.04.11
Как узнать текущие параметры панели задач





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский