Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Always on Top 


e-SiN   (2002-03-26 15:32) [0]

Kak coздать дочернее окно, чтобы оно всегда плавало поверх родительского?
P.S.:
"procedure TForm3.CreateParams (var Params: TCreateParams);
begin
Inherited CreateParams(Params);
Params.Style:= Params.Style or ws_OverLapped;
Params.WndParent:=Form1.Handle;
end;
"-неработает, но одна форма уже есть(и на ней роботает:)



Eug201   (2002-03-26 18:35) [1]

Я посмотрел справку - ws_overlapped вроде не множко не то. Попробуй WS_EX_TOPMOST и посмотри WIN_SDK по CreateWindowEx.



e-SiN   (2002-03-27 09:40) [2]

Неработает:(((((((((



e-SiN   (2002-03-27 09:46) [3]

Извентиляюсь, забыл override в public;)
Public
procedure CreateParams (var Params: TCreateParams);override;
end;

var
Form2: TForm2;

implementation

procedure TForm2.CreateParams (var Params: TCreateParams);
begin
Inherited CreateParams(Params);
Params.Style:= Params.Style or ws_OverLapped;
Params.WndParent:=Form1.Handle;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.036 c
1-22623           [HDD]John             2002-03-27 17:16  2002.04.08  
Кстати о SendKeys ....


14-22829          Лёша                  2002-02-22 15:43  2002.04.08  
Посоветуйте хостинг.


1-22638           LiNkS                 2002-03-27 21:35  2002.04.08  
Types of actual and formal var parameters must be identical


7-22869           АндрейФ.              2002-01-10 18:40  2002.04.08  
Чтение секторов на дисках


1-22759           Толик                 2002-03-26 17:07  2002.04.08  
вызов функции-члена класса