Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c