|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander 2:5020/400 02 Jul 2003 16:40:38
To : All
Subject : Tk Окно поверх всех окон
--------------------------------------------------------------------------------
платформа Windows
Интерфейс на Тк.
Hужно чтобы окно программы было поверх всех окон, независимо активно оно или
нет.
Сваял следующее:
--------------------------------------------
$widget = $MainWindow->Toplevel();
$hwnd = $widget->id;
$hwnd = hex($hwnd);
$setWindowPos = new Win32::API('user32', 'SetWindowLongA', 'NNN', 'N');
$setWindowPos->Call($hwnd, GWL_EXSTYLE, WS_EX_TOPMOST);
--------------------------------------------
Получаю ошибку "Hеверный индекс".
И естественно ничего не происходит. (Индекс-то из книжки. В печку ее
что-ли:)
Где я туплю?
Или это можно решить средствами Tk?
Помогите пожалуйста!
--- ifmail v.2.15dev5
* Origin: Svit Online (post does not reflect views of Golden Tele (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
