Текущий архив: 2008.01.20;
Скачать: CL | DM;

Вниз

независимое окно   Найти похожие ветки 

← →
LexXL   (2007-12-20 10:18) [0]

здравствуйте, подскажите как можно реализовать  независимое окно/форму. Я столкнулся с такой задачей что имея главную форму мне нужна еще одна форма которая не будет сворачиваться если свернуть главное окно, хотя мне подойдет и тот вариант чтобы эта форма всегда была поверх остальных приложений, нашел инфу как сделать
 SetWindowPos(Handle,
   HWND_TOPMOST,
   Left,
   Top,
   Width,
   Height,
   SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
но это работает только для главной формы, если это применить для 2ой формы то она будет только поверх основной. Пожалуйста если кто знает как решить проблему напишите.
Заранее огромное спасибо!

---

← →
LexXL   (2007-12-20 12:10) [1]

так разобрался со своей ситуацией если кому нужно было
перекрыть метод CreateParams задать WndParent равное 0
type
 TForm2 = class(TForm)
 procedure FormCreate(Sender: TObject);
 protected
 procedure CreateParams(var Params: TCreateParams); override;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
 inherited;
 Params.WndParent := 0;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
SetWindowPos(Form2.Handle,HWND_TOPMOST,0,0,0,0,
SWP_NOSIZE or SWP_NOMOVE);
end;

---

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

Текущий архив: 2008.01.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.019 c