| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
окно поверх ВСЕХ остальных [D7, WinXP]
heady © (2005-06-26 18:13:00)Хочу, чтобы моя Form2 появлялась поверх ВСЕХ остальных и получала фокус, накопал кучу вариантов, большинство выдает одинаковую ошибку:
procedure TForm2.FormShow(Sender: TObject);
begin
with Form2 do
SetWindowPos(Handle, HWND_TOPMOST, Left, Top,
Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
Edit1.SetFocus;
end;
Выдает ошибку: [Error] Unit2.pas(35): Incompatible types: 'HWND' and 'QOpenScrollViewH'
какой модуль требуется подключать для использования SetWindowPos?
Reindeer Moss Eater (2005-06-26 18:38:00) [1]Вот и сделай
File->New->Application
а не
File->New->CLXApplication
heady (2005-06-26 18:34:00) [2]а как?
New -> именно Win32 Application отссутствует... есть просто дефолное Application
Reindeer Moss Eater (2005-06-26 18:24:00) [3]нет не оно
heady (2005-06-26 18:21:00) [4]application по дефолту - это оно?
Reindeer Moss Eater (2005-06-26 18:16:00) [5]Смени тип проекта на Win32 приложение
| |
