fsStayOnTop Form2

[Endifier]

Привет.
Возник такой вопрос, есть 2 формы, с первой, по нажатию клавиши, вызывается вторая, при этом, у второй, свойство FormStyle = fsStayOnTop.
Однако, при переключении в любое окно (стороннее) вторая форма перекрывается. В чем проблема?
p.s.
Показ вызываю так - Form2.Show;.

[Stilet]

Предположу: Наверное проблема в том что эта форма не является главной, поэтому окно другого приложения ее перекрывает. т.е. СтейОнТоп в данном случае (наверное) работает только в рамках форм твоего приложения.

[Endifier]

Stilet, вы правы. Стал копать в сторону изменения главной формы, наткнулся на такой код:

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};
 
{$R *.res}
 
procedure SetAsMainForm(aForm:TForm);
var
  P: Pointer;
begin
   P := @Application.Mainform;
   Pointer( P^ ) := aForm;
end;
 
begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.CreateForm(TForm2, Form2);
   Application.CreateForm(TForm3, Form3);
 
   if Paramstr( 1 ) = 'Param1' then
      SetAsMainForm( Form2 );
 
   if Paramstr( 1 ) = 'Param2' then
      SetAsMainForm( Form3 );
 
   Application.Run;
end.

Но не пойму, как это дело работает, и работает ли вообще?

[eval]

FormStyle = fsStayOnTop

работает только в пределах приложения, чтобы форма была топом в системе надо перекрывать CreateParams и устанавливать расширенные стили окну
или выставить стиль после создания окна спец. апи функциями

[northener]

Сообщение от Endifier

Stilet, вы правы. Стал копать в сторону изменения главной формы, наткнулся на такой код:

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};
 
{$R *.res}
 
procedure SetAsMainForm(aForm:TForm);
var
  P: Pointer;
begin
   P := @Application.Mainform;
   Pointer( P^ ) := aForm;
end;
 
begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.CreateForm(TForm2, Form2);
   Application.CreateForm(TForm3, Form3);
 
   if Paramstr( 1 ) = 'Param1' then
      SetAsMainForm( Form2 );
 
   if Paramstr( 1 ) = 'Param2' then
      SetAsMainForm( Form3 );
 
   Application.Run;
end.

Но не пойму, как это дело работает, и работает ли вообще?

А к чему вообще такое извращение? Какое отношение оно имеет к вопросу о fsStayOnTop?

[Endifier]

а к чему ваш флуд?

[northener]

Сообщение от Endifier

а к чему ваш флуд?

Пытаюсь понять ваш бред, дабы подсказать лекарство.
P.S. А то что сей код, который вы надыбали где-то на всемирной помойке есть ужасное извращение недопрограммистов эдак 15-ти летней давности вам невдомёк конечно.

[Endifier]

Бред, несете вы, захламляя тему, не более того. Есть конкретный вопрос, конкретная цель, если вы не можете "осилить" сути, или сказать что либо по существу, ну.. ни к чему тогда лишние разговоры разводить. И да, мне все равно сколько лет этому коду, да и я без понятия на самом то деле, поэтому и спрашиваю что к чему. Но.. вы и этого понять не способны.

[Stilet]

Бред, несете вы, захламляя тему, не более того.

Во-первых: За провокацию я буду наказывать жестко. Хватит с нас чуши.
Во-вторых: Вопрос

к чему вообще такое извращение? Какое отношение оно имеет к вопросу о fsStayOnTop?

Актуален учитывая что главентво формы устанавливается при создании а не какими-то SetAsMainForm().
Поэтому спрошу и я - к чему вышеприведенный код, являющийся бесполезным?

[Пепел Феникса]

и работает ли вообще?

то что вам надо делает?

SetWindowLong и SetWindowPos вам помогут.