Форма как SideBar или systray Windows

[DIMASIKXXX32]

Сообщение от Пепел Феникса

этой функцией с этим флагом вы задаете рабочую область, а именно, область как развернется окно максимально.
вы должны разослать уведомление всем окнам о том что параметры системы изменены, только тогда они примут новые параметры.

SendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);

SetWindowPos не с той степи, это потом было и к другому.

PS: посмотрите на скрин с первого сообщения темы, это то что вы хотите получить?(проигрыватель над панелью задач)

Да только справа

[DIMASIKXXX32]

Так чего то я запутался давайте по порядку
На какое событие это все вешать.
1. При создании формы определяю размер рабочей области экрана делаю так:

//глобальная переменная
var
ScreenWorkArea:TRect;


procedure TF_Main.FormCreate(Sender: TObject);
begin
F_Main.Left := Screen.Width - F_Main.Width;
F_Main.Height := Screen.Height;
ScreenWorkArea:=Rect( Screen.WorkAreaLeft,
Screen.WorkAreaTop,
Screen.Width - F_Main.Width {Вычитаю размер формы},
Screen.Height);
end;

2. Устанавливаю рабочую область с новыми параметрами так:

procedure TF_Main.FormActivate(Sender: TObject);
begin
SystemParametersInfo(SPI_SETWORKARE A,0,@ScreenWorkArea,SPIF_SENDCHANGE);
end;


а SPIF_SENDCHANGE разве не оповещает все окна о перерисовке.
3. При закрытии формы делаю следующее:

procedure TF_Main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ScreenWorkArea:=Rect( 0,
0,
1366,
768);
SystemParametersInfo(SPI_SETWORKARE A,0,@ScreenWorkArea,SPIF_SENDCHANGE );
end;

Вроде при закрытии все изменяется только один косяк теперь системный трей не является ограничением для окон.

теперь что надо добавить ....

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

с флагом SPI_GETWORKAREA вы получаете текущую рабочую область.(посл параметр 0)
её нужно сохранять.
и потом восстанавливать именно её.

а то у вас была рабочая область размером с экран - таскбар, а вы ставите весь экран, вот и выходит.

[DIMASIKXXX32]

Сообщение от Пепел Феникса

с флагом SPI_GETWORKAREA вы получаете текущую рабочую область.(посл параметр 0)
её нужно сохранять.
и потом восстанавливать именно её.

а то у вас была рабочая область размером с экран - таскбар, а вы ставите весь экран, вот и выходит.

SystemParametersInfo(SPI_SETWORKARE A,0,0,SPIF_SENDCHANGE);
Да получилось...

[DIMASIKXXX32]

вот если заметили еще есть косяк по строению формы

    F_Main.Left :=  Screen.Width - F_Main.Width;
    F_Main.Height := Screen.Height;

Короче перекрывает системный трей

а если в свойстве Align=alRight то форма начинает двигаться вместе с рабочей областью но отрисовывается до системного трея

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

SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);

сохранили текущую рабочую область.
от нее расчитываем новую, и так координаты себя любимого тоже можно!
и потом в конце эту область вы и должны восстановить.

[DIMASIKXXX32]

Сообщение от Пепел Феникса

SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);

сохранили текущую рабочую область.
от нее расчитываем новую, и так координаты себя любимого тоже можно!
и потом в конце эту область вы и должны восстановить.

Привожу полный код

unit U_MAin;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, AdvCodeList, AdvMemo,
  AdvmPS, sSkinManager, sLabel, sButton, sComboBox, System.IniFiles;

type
  TF_Main = class(TForm)
    SM: TsSkinManager;
    sButton1: TsButton;
    SkinBox: TsComboBox;
    procedure FormCreate(Sender: TObject);
    procedure SkinBoxChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Main: TF_Main;
  FIni:TIniFile;
  ScreenWorkArea:TRect;
implementation

{$R *.dfm}
 //
procedure TF_Main.FormCreate(Sender: TObject);
  var
    CountSkin:Integer;
  begin
    //
    FIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'setting.ini');
    SM.SkinName:=FIni.ReadString('Skin','Name','Afterburner (внутренний)');
    FIni.Free;

    F_Main.Left :=  Screen.Width - F_Main.Width;
    F_Main.Height := Screen.Height;

    ScreenWorkArea:=Rect( Screen.WorkAreaLeft,
                          Screen.WorkAreaTop,
                          Screen.Width - F_Main.Width,
                          Screen.Height);

    IntToStr(SM.InternalSkins.Count);
    for CountSkin := 0 to SM.InternalSkins.Count-1 do
      SkinBox.AddItem(SM.InternalSkins.Items[CountSkin].Name,nil);
  end;
//
procedure TF_Main.SkinBoxChange(Sender: TObject);
  begin
    SM.SkinName:=SkinBox.Text;
  end;
//Закрытие программы
procedure TF_Main.FormActivate(Sender: TObject);
  begin
    SystemParametersInfo(SPI_SETWORKAREA,0,@ScreenWorkArea,SPIF_SENDCHANGE);
  end;
//
procedure TF_Main.FormClose(Sender: TObject; var Action: TCloseAction);
  begin

    sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0) ;
    //
    FIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'setting.ini');
    FIni.WriteString('Skin','Name',SkinBox.Text);
    FIni.Free;
  end;

end.

Подскажи что куда вставить вообще запутался или что добавить и чего нехватает

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

  ScreenWorkArea:TRect;
implementation

procedure TF_Main.FormShow(Sender: TObject);
  var
    R:TRect;
  begin
   SystemParametersInfo(SPI_GETWORKAREA,0,@ScreenWorkArea,0);
   R:=Rect( ScreenWorkArea.Left,
                          ScreenWorkArea.Top,
                          ScreenWorkArea.Right - F_Main.Width,
                          ScreenWorkArea.Bottom);
   F_Main.Left :=  ScreenWorkArea.Right - F_Main.Width;
   F_Main.Height := ScreenWorkArea.Bottom-ScreenWorkArea.Top;
    SystemParametersInfo(SPI_SETWORKAREA,0,@R,SPIF_SENDCHANGE);
   //sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0) ;
   //не помню нужна ли.
  end;

procedure TF_Main.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    SystemParametersInfo(SPI_SETWORKAREA,0,@ScreenWorkArea,SPIF_SENDCHANGE);
   //sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0) ;
   //не помню нужна ли.
  end;

как то так.

[DIMASIKXXX32]

Сообщение от Пепел Феникса

  ScreenWorkArea:TRect;
implementation

procedure TF_Main.FormShow(Sender: TObject);
  var
    R:TRect;
  begin
   SystemParametersInfo(SPI_GETWORKAREA,0,@ScreenWorkArea,0);
   R:=Rect( ScreenWorkArea.Left,
                          ScreenWorkArea.Top,
                          ScreenWorkArea.Right - F_Main.Width,
                          ScreenWorkArea.Bottom);
   F_Main.Left :=  ScreenWorkArea.Right - F_Main.Width;
   F_Main.Height := ScreenWorkArea.Bottom-ScreenWorkArea.Top;
    SystemParametersInfo(SPI_SETWORKAREA,0,@R,SPIF_SENDCHANGE);
   //sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0) ;
   //не помню нужна ли.
  end;

procedure TF_Main.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    SystemParametersInfo(SPI_SETWORKAREA,0,@ScreenWorkArea,SPIF_SENDCHANGE);
   //sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0) ;
   //не помню нужна ли.
  end;

как то так.

Все теперь понял я несчитал значения т.е. не запомнил изначальные SystemParametersInfo(SPI_GETWORKARE A,0,@ScreenWorkArea,0);

Вроде все заработало корректно, только теперь подшаманить на все события при сворачивание и разворачивание. Огромное тебе спасибо

[DIMASIKXXX32]

Тема закрыта.