Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.018 c
15-1197943199
Ламер777
2007-12-18 04:59
2008.01.20
Графический редактор для WEB


15-1197457527
Vlad Oshin
2007-12-12 14:05
2008.01.20
Как поставить комментариb d сприптe в MS SQL serer Management?


15-1197268731
venoel
2007-12-10 09:38
2008.01.20
Что делать с ненужными компактами?


1-1192990151
dreamse
2007-10-21 22:09
2008.01.20
Ускорение работы FileExists


6-1178679440
nali
2007-05-09 06:57
2008.01.20
Зависание InternetOpenUrl