Главная страница
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
2-1198238982
Washington
2007-12-21 15:09
2008.01.20
Метод Delete


3-1189767540
DelphiN!
2007-09-14 14:59
2008.01.20
Обратиться к полю из 1го подзапроса во 2ом подзапросе SQL


15-1197359222
Kolan
2007-12-11 10:47
2008.01.20
Code Gear тут дисочки раздает :)


2-1198337091
223001
2007-12-22 18:24
2008.01.20
помогите задачу решить


15-1197754927
Johnmen
2007-12-16 00:42
2008.01.20
Отдам в хорошие руки. Москва.