Текущий архив: 2005.07.18;
Скачать: CL | DM;
Вниз
окно поверх ВСЕХ остальных Найти похожие ветки
← →
heady (2005-06-26 18:13) [0]Хочу, чтобы моя 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:16) [1]Смени тип проекта на Win32 приложение
← →
heady (2005-06-26 18:21) [2]application по дефолту - это оно?
← →
Reindeer Moss Eater © (2005-06-26 18:24) [3]нет не оно
← →
heady (2005-06-26 18:34) [4]а как?
New -> именно Win32 Application отссутствует... есть просто дефолное Application
← →
Reindeer Moss Eater © (2005-06-26 18:38) [5]Вот и сделай
File->New->Application
а не
File->New->CLXApplication
Страницы: 1 вся ветка
Текущий архив: 2005.07.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.056 c
