Не работает fsStayOnTop для нескольких форм

@97mik · Регистрация: 08.04.2009

Author24 — интернет-сервис помощи студентам

Почему если у Form1 в параметрах FormStyle указываю fsstayontop, то она поверх всех окон держится, а если о же самое у Form2 указываю, то она не держится?

@volvo · 27.06.2013, 15:41

Здесь я показывал, что надо делать: Две формы поверх всех окон. Вторая не хочет быть поверх

@97mik · 27.06.2013, 15:46 **[ТС]**

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

Здесь я показывал, что надо делать: Две формы поверх всех окон. Вторая не хочет быть поверх

Так там для C++

@volvo · 27.06.2013, 15:49

Там для Билдера, слово в слово переводится на Дельфи, только запиши это же самое Паскалевским синтаксисом. Где проблема?

@97mik · 27.06.2013, 15:52 **[ТС]**

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

Где проблема?

Проблема в том что я ничего не понял. Не могли бы вы просто код написать, а то я пока разберусь.

@volvo · 27.06.2013, 15:55

Delphi

type
  TForm2 = class(TForm)
  // ...
  private
    { Private declarations }
  public
    { Public declarations }
 
  protected
    procedure CreateParams(var Params: TCreateParams); override; // Добавляем в класс второй формы
  end;
 
// и реализация:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;
 
// Это событие OnShow
procedure TForm2.FormShow(Sender: TObject);
begin
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;

Сильно отличается от Билдера?

@97mik · 27.06.2013, 15:58 **[ТС]**

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

Сильно отличается от Билдера?

Не сильно, но отличается.

@97mik · 27.06.2013, 16:03 **[ТС]**

Как сделать чтобы Form1 отображалась на панели задач, а Form2 - нет?

@volvo · 27.06.2013, 16:10

Это относится сюда же, так что давай продолжим тут. Вот полный код модуля, смотри и пробуй:

Delphi

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
 
type
  TForm2 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWnd; override;
  end;
 
var
  Form2: TForm2;
 
implementation
uses ComObj;
 
{$R *.dfm}
 
const
  CLSID_TaskbarList: TGUID = '{56FDF344-FD6D-11d0-958A-006097C9A090}';
 
type
  ITaskbarList = interface
  ['{56FDF342-FD6D-11d0-958A-006097C9A090}']
     procedure HrInit; safecall;
     procedure AddTab(hwnd: Cardinal); safecall;
     procedure DeleteTab(hwnd: Cardinal); safecall;
     procedure ActivateTab(hwnd: Cardinal); safecall;
     procedure SetActiveAlt(hwnd: Cardinal); safecall;
  end;
 
{ TForm2 }
 
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;
 
procedure TForm2.CreateWnd;
var
  Taskbar: ITaskbarList;
begin
  inherited;
 
  Taskbar := CreateComObject(CLSID_TaskbarList) as ITaskbarList;
  Taskbar.HrInit;
  Taskbar.DeleteTab(Handle);
end;
 
procedure TForm2.FormShow(Sender: TObject);
begin
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;
 
end.

Отображается теперь Form2 на панели?

@97mik · 27.06.2013, 16:15 **[ТС]**

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

Отображается теперь Form2 на панели?

Отображается.

@volvo · 27.06.2013, 16:27

Не верю:

Не работает fsStayOnTop для нескольких форм

Где вторая кнопка?

@97mik · 27.06.2013, 16:35 **[ТС]**

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

Не верю

Ну вообщем это весь код моей второй формы:

Delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
 
     protected
    procedure CreateParams(var Params: TCreateParams); override; // Добавляем в класс второй формы
    procedure CreateWnd; override;
  end;
 
var
  Form2: TForm2;
 
implementation
 
uses Unit1,ComObj;
 
{$R *.dfm}
 
const
  CLSID_TaskbarList: TGUID = '{56FDF344-FD6D-11d0-958A-006097C9A090}';
 
type
  ITaskbarList = interface
  ['{56FDF342-FD6D-11d0-958A-006097C9A090}']
     procedure HrInit; safecall;
     procedure AddTab(hwnd: Cardinal); safecall;
     procedure DeleteTab(hwnd: Cardinal); safecall;
     procedure ActivateTab(hwnd: Cardinal); safecall;
     procedure SetActiveAlt(hwnd: Cardinal); safecall;
  end;
 
  { TForm2 }
 
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Left:=-200;
form1.left:=50;
end;
 
procedure TForm2.CreateWnd;
var
  Taskbar: ITaskbarList;
begin
  inherited;
 
  Taskbar := CreateComObject(CLSID_TaskbarList) as ITaskbarList;
  Taskbar.HrInit;
  Taskbar.DeleteTab(Handle);
end;
 
procedure TForm2.FormShow(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;
 
end.

@97mik · 27.06.2013, 18:25 **[ТС]**

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

Не верю:

Вот, вторая форма у меня это кнопка над пуском.

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
		1
	Не работает fsStayOnTop для нескольких форм 27.06.2013, 14:44. Показов 2814. Ответов 12 Метки нет (Все метки) Почему если у Form1 в параметрах FormStyle указываю fsstayontop, то она поверх всех окон держится, а если о же самое у Form2 указываю, то она не держится? 0

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	27.06.2013, 15:41	2
	Здесь я показывал, что надо делать: Две формы поверх всех окон. Вторая не хочет быть поверх 1

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	27.06.2013, 15:46 [ТС]	3
	Сообщение от UI Здесь я показывал, что надо делать: Две формы поверх всех окон. Вторая не хочет быть поверх Так там для C++ 0

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	27.06.2013, 15:49	4
	Там для Билдера, слово в слово переводится на Дельфи, только запиши это же самое Паскалевским синтаксисом. Где проблема? 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	27.06.2013, 15:52 [ТС]	5
	Сообщение от UI Где проблема? Проблема в том что я ничего не понял. Не могли бы вы просто код написать, а то я пока разберусь. 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	27.06.2013, 15:58 [ТС]	7
	Сообщение от UI Сильно отличается от Билдера? Не сильно, но отличается. 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	27.06.2013, 16:03 [ТС]	8
	Как сделать чтобы Form1 отображалась на панели задач, а Form2 - нет? 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	27.06.2013, 16:15 [ТС]	10
	Сообщение от UI Отображается теперь Form2 на панели? Отображается. 0

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	27.06.2013, 16:27	11
	Не верю: Где вторая кнопка? 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	27.06.2013, 18:25 [ТС]	13
	Сообщение от UI Не верю: Вот, вторая форма у меня это кнопка над пуском. Миниатюры 0