Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Вниз
противоположность AlwaysOnTop.. Найти похожие ветки
← →
ПроНыРа (2005-02-19 11:37) [0]Очень своеобразный вопрос... Вот у нас есть свойство - Always On Top, а как сделать наоборот - чтобы программа всегда была под остальными, тоесть как-бы прилеплена к рабочему столу... Желательно с примерчиком :).
← →
Neznaika © (2005-02-19 13:49) [1]Исходя из:
http://delphimaster.net/view/1-1108541537/
DVM знает как...
← →
ПроНыРа © (2005-02-19 13:53) [2]> To DVM ©
так как же всё-таки сделать ниже всех...???
← →
Zeqfreed © (2005-02-19 14:09) [3]
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure WMWindowPosChanging(var Msg : TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;
end;
procedure TForm1.WMWindowPosChanging(var Msg : TWMWINDOWPOSCHANGING);
begin
Msg.WindowPos^.flags := Msg.WindowPos^.flags or SWP_NOZORDER;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;
Так работает, только если форма не главная, то она сможет станвиться поверх главной.
← →
ПроНыРа © (2005-02-19 14:23) [4]> Zeqfreed © (19.02.05 14:09) [3]
Всё супер, только при создании формы она всё-еще поверх окон, а как тогда сделать так, чтобы при запуске программы форма сразу находилась ниже всех окон?
← →
Zeqfreed © (2005-02-19 14:33) [5]При открытии формы делать то, что сделано в Create, от туда же можно в таком случае убрать.
← →
ПроНыРа © (2005-02-19 15:09) [6]> Zeqfreed © (19.02.05 14:33) [5]
Что значит при открытии формы?
на OnShow не помагает, на OnActivate тоже...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.197 c
